[Bug: 21.5-b28] Bug in #'loop
Aidan Kehoe
kehoea at parhasard.net
Mon Jan 7 11:47:53 EST 2008
================================================================
Dear Bug Team!
Sebastian Freundt just pointed this out:
(loop for i in t always nil)
=> t
Common Lisp errors because t isn’t a list, as is consistent with the
behaviour when you hand our #'loop a sequence, say. Here’s a tentative fix
that I have yet to test in detail; the SXEmacs folk and Sebastian in
particular have a pretty comprehensive test suite available, though, and I
intend to get to testing it soon.
--- cl-macs.el~ Mon Jan 7 17:35:10 2008
+++ cl-macs.el Mon Jan 7 17:37:58 2008
@@ -1180,7 +1180,7 @@
(let* ((on (eq word 'on))
(temp (if (and on (symbolp var)) var (gensym))))
(push (list temp (pop args)) loop-for-bindings)
- (push (list 'consp temp) loop-body)
+ (push temp loop-body)
(if (eq word 'in-ref)
(push (list var (list 'car temp)) loop-symbol-macs)
(or (eq temp var)
Bye,
Aidan
================================================================
System Info to help track down your bug:
---------------------------------------
uname -a: FreeBSD daedalus.asclepian.ie 6.2-STABLE FreeBSD 6.2-STABLE #0: Tue Jun 5 16:04:39 UTC 2007 conall at daedalus.asclepian.ie:/usr/obj/usr/src/sys/DAEDALUS amd64
./configure '--prefix=/home/aidan' '--with-cflags=-Os -pipe -ffast-math -fno-exceptions -momit-leaf-frame-pointer -msse -mmmx -msse2 -m3dnow -m64 -mfpmath=sse,387' '--with-site-prefixes=/usr/local' '--with-infopath=/usr/local/info' '--disable-dialogs' '--disable-widgets' '--disable-sound' '--enable-pdump' '--enable-bignum=gmp' '--with-default-eol-detection' '--enable-mule' '--without-xim' '--without-x11' 'CC=gcc'
XEmacs 21.5-b28 "fuki" (+CVS-20071205) configured for `x86_64-unknown-freebsd6.2'.
Compilation Environment and Installation Defaults:
Source code location: /home/aidan/xemacs-21.5
Installation prefix: /home/aidan
Additional prefixes: /usr/local
Operating system description file: `s/freebsd.h'
Not using any machine description file
Compiler version: gcc (GCC) 3.4.6 [FreeBSD] 20060305
- GCC specs file: specs.
- Compiler command: gcc -Wall -Wno-switch -Wundef -Wsign-compare -Wno-char-subscripts -Wpacked -Wpointer-arith -Wunused-parameter -g -Os -pipe -ffast-math -fno-exceptions -momit-leaf-frame-pointer -msse -mmmx -msse2 -m3dnow -m64 -mfpmath=sse,387
libc version:
Relocating allocator for buffers: yes
GNU version of malloc: yes
Window System:
TTY:
Compiling in support for ncurses.
Images:
Sound:
Databases:
Compiling in support for Berkeley database.
Compiling in support for GNU DBM.
Compiling in support for LDAP.
Compiling in support for PostgreSQL.
- Using PostgreSQL header file: libpq-fe.h
- Using PostgreSQL V7 bindings.
Internationalization:
Compiling in support for Mule (multi-lingual Emacs).
Mail:
Compiling in support for "flock" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Compiling in support for more number types using the GNU MP library.
Using the new GC mark algorithms (KKCC).
WARNING: ---------------------------------------------------------
WARNING: The new algorithms are experimental. They are enabled by
WARNING: default for this release. Use `--disable-kkcc' to
WARNING: turn it off.
WARNING: ---------------------------------------------------------
Using the new portable dumper.
Dumping into executable.
Compiling in support for extra debugging code.
Compiling in support for runtime error checking.
WARNING: ---------------------------------------------------------
WARNING: XEmacs will run noticeably more slowly as a result.
WARNING: Error checking is on by default for XEmacs beta releases.
WARNING: ---------------------------------------------------------
Load-Path Lisp Shadows:
----------------------
(/home/aidan/emacs-lisp/erc-log
/home/aidan/share/xemacs/xemacs-packages/lisp/erc/erc-log
/home/aidan/emacs-lisp/regexp-opt
/home/aidan/share/xemacs/xemacs-packages/lisp/xemacs-base/regexp-opt
/home/aidan/lib/xemacs/mule-packages/lisp/mule-base/china-util
/home/aidan/share/xemacs-21.5-b28/lisp/mule/china-util
/home/aidan/lib/xemacs/mule-packages/lisp/mule-base/cyril-util
/home/aidan/share/xemacs-21.5-b28/lisp/mule/cyril-util
/home/aidan/lib/xemacs/mule-packages/lisp/mule-base/ethio-util
/home/aidan/share/xemacs-21.5-b28/lisp/mule/ethio-util
/home/aidan/lib/xemacs/mule-packages/lisp/mule-base/viet-util
/home/aidan/share/xemacs-21.5-b28/lisp/mule/viet-util
/home/aidan/lib/xemacs/mule-packages/lisp/leim/quail/thai-xtis
/home/aidan/share/xemacs-21.5-b28/lisp/mule/thai-xtis
/home/aidan/lib/xemacs/mule-packages/lisp/mule-base/korea-util
/home/aidan/share/xemacs-21.5-b28/lisp/mule/korea-util
/home/aidan/lib/xemacs/mule-packages/lisp/mule-base/japan-util
/home/aidan/share/xemacs-21.5-b28/lisp/mule/japan-util
/home/aidan/lib/xemacs/mule-packages/lisp/leim/quail/greek
/home/aidan/share/xemacs-21.5-b28/lisp/mule/greek
/home/aidan/lib/xemacs/mule-packages/lisp/leim/quail/ethiopic
/home/aidan/share/xemacs-21.5-b28/lisp/mule/ethiopic
/home/aidan/lib/xemacs/mule-packages/lisp/leim/quail/cyrillic
/home/aidan/share/xemacs-21.5-b28/lisp/mule/cyrillic
/home/aidan/emacs-lisp/arabic
/home/aidan/share/xemacs-21.5-b28/lisp/mule/arabic
/home/aidan/emacs-lisp/regexp-opt
/home/aidan/share/xemacs-21.5-b28/lisp/regexp-opt
/home/aidan/share/xemacs/xemacs-packages/lisp/xemacs-base/easy-mmode
/home/aidan/share/xemacs-21.5-b28/lisp/easy-mmode
/home/aidan/emacs-lisp/cl-macs
/home/aidan/share/xemacs-21.5-b28/lisp/cl-macs
/home/aidan/share/xemacs/xemacs-packages/lisp/build/build-report
/home/aidan/share/xemacs-21.5-b28/lisp/build-report)
Installed XEmacs Packages:
-------------------------
(xslt-process ver: 1.11 upstream: regular)
(xemacs-devel ver: 1.7 upstream: No-Upstream-Ver)
(xemacs-base ver: 1.94 upstream: No-Upstream-Ver)
(vm ver: 7.26 upstream: 7.19)
(view-process ver: 1.13 upstream: 2.4)
(vc-cc ver: 1.22 upstream: No-Upstream-Ver)
(vc ver: 1.4 upstream: No-Upstream-Ver)
(tpu ver: 1.14 upstream: 4.2X)
(time ver: 1.14 upstream: 1.17)
(textools ver: 1.15 upstream: No-Upstream-Ver)
(text-modes ver: 1.82 upstream: No-Upstream-Ver)
(texinfo ver: 1.28 upstream: No-Upstream-Ver)
(strokes ver: 1.1 upstream: No-Upstream-Ver)
(speedbar ver: 1.27 upstream: 0.14beta4)
(sml-mode ver: 0.11 upstream: 3.9.5)
(sieve ver: 1.17 upstream: No-Upstream-Ver)
(sh-script ver: 1.18 upstream: 2.0e)
(sgml ver: 1.11 upstream: No-Upstream-Ver)
(scheme ver: 1.14 upstream: No-Upstream-Ver)
(rmail ver: 1.14 upstream: No-Upstream-Ver)
(reftex ver: 1.34 upstream: 4.21)
(python-modes ver: 1.06 upstream: No-Upstream-Ver)
(prog-modes ver: 2.01 upstream: No-Upstream-Ver)
(pgg ver: 1.06 upstream: 0.1)
(perl-modes ver: 1.06 upstream: No-Upstream-Ver)
(pcl-cvs ver: 1.66 upstream: R-2_9_9)
(pc ver: 1.26 upstream: No-Upstream-Ver)
(os-utils ver: 1.4 upstream: No-Upstream-Ver)
(oo-browser ver: 1.04 upstream: 4.08)
(ocaml ver: 0.05 upstream: 3.06)
(net-utils ver: 1.44 upstream: N/A)
(mmm-mode ver: 1.02 upstream: 0.4.7)
(misc-games ver: 1.19 upstream: No-Upstream-Ver)
(mailcrypt ver: 2.14 upstream: 3.5.8)
(mail-lib ver: 1.79 upstream: No-Upstream-Ver)
(ispell ver: 1.29 upstream: 3.6)
(ilisp ver: 1.33 upstream: 5.12.0)
(igrep ver: 1.13 upstream: 2.111)
(ibuffer ver: 1.09 upstream: No-Upstream-Ver)
(gnats ver: 1.16 upstream: 3.101)
(general-docs ver: 1.03 upstream: No-Upstream-Ver)
(games ver: 1.15 upstream: 1.04)
(fsf-compat ver: 1.15 upstream: No-Upstream-Ver)
(frame-icon ver: 1.11 upstream: No-Upstream-Ver)
(forms ver: 1.15 upstream: 2.37)
(footnote ver: 1.16 upstream: 0.18x)
(eterm ver: 1.15 upstream: No-Upstream-Ver)
(ess ver: 1.12 upstream: 5.2.3)
(erc ver: 0.21 upstream: Version 5.1.2 Revision: 1.796.2.6)
(emerge ver: 1.11 upstream: No-Upstream-Ver)
(elib ver: 1.11 upstream: 1.0)
(eieio ver: 1.05 upstream: 0.17)
(efs ver: 1.33 upstream: 1.23)
(edt ver: 1.13 upstream: No-Upstream-Ver)
(edit-utils ver: 2.19 upstream: No-Upstream-Ver)
(ediff ver: 1.5 upstream: 2.75)
(edebug ver: 1.21 upstream: No-Upstream-Ver)
(ecrypto ver: 0.19 upstream: 2.0)
(dired ver: 1.16 upstream: 7.12)
(dictionary ver: 1.15 upstream: 1.8)
(debug ver: 1.17 upstream: No-Upstream-Ver)
(cookie ver: 1.15 upstream: No-Upstream-Ver)
(cc-mode ver: 1.43 upstream: 5.30.9)
(calendar ver: 1.34 upstream: No-Upstream-Ver)
(calc ver: 1.26 upstream: 2.02fX3)
(c-support ver: 1.2 upstream: No-Upstream-Ver)
(build ver: 1.14 upstream: 2.02)
(auctex ver: 1.42 upstream: 11.53)
(apel ver: 1.27 upstream: 10.2)
(skk ver: 1.24 upstream: 10.62a)
(mule-base ver: 1.46 upstream: No-Upstream-Ver)
(lookup ver: 1.14 upstream: 1.0)
(locale ver: 1.22 upstream: No-Upstream-Ver)
(leim ver: 1.26 upstream: No-Upstream-Ver)
(latin-unity ver: 1.19 upstream: 1.19)
(latin-euro-standards ver: 1.07 upstream: 1.07)
(egg-its ver: 1.27 upstream: No-Upstream-Ver)
(edict ver: 1.16 upstream: 0.9.9)
Installed Modules:
-----------------
Features:
--------
(xemacsbug shadow ipa cperl-mode tex atomic-extents mail-utils debug
byte-optimize bytecomp byte-compile quail cc-mode cc-fonts cc-menus cc-cmds
cc-styles cc-align cc-engine cc-vars cc-defs mail-abbrevs regexp-opt
find-func info view-less view hyper-apropos vm-sort vm-virtual vm-delete
vm-undo vm-page vm-mouse vm-mime vm-toolbar vm-summary tapestry vm-motion
vm-folder vm-misc vm-window mspools non-standard-1252 vm-pine vm-message
vm-minibuf vm-rfaddons overlay vm-macro vm-reply sendmail cookie1
vm-autoload vm-vars highlight-headers vm-startup vm-version vm efs-cu
timer-funcs erc-track erc-ring erc-netsplit erc-match erc-button erc-fill
erc-stamp wid-edit erc-autojoin unique erc-truncate erc-log erc-goodies erc
erc-backend erc-menu erc-compat format-spec thingatpt pp latin-unity-tables
latin-euro-standards latin-euro-latin10 latin-euro-latin9 latin-euro-latin8
latin-euro-latin7 latin-unity-vars latin-unity crypt crypt++ crypt+pgp-pub
scroll-in-place redo desktop savehist alist after-save-commands mail-extr
timezone tex-site mailcrypt rfc822 comint ring mmm advice advice-preload
lazy-shot font-lock time cus-face gnuserv xslt-process-autoloads
xemacs-devel-autoloads xemacs-base-autoloads vm-autoloads
view-process-autoloads vc-cc-autoloads vc-autoloads tpu-autoloads
time-autoloads textools-autoloads text-modes-autoloads texinfo-autoloads
strokes-autoloads speedbar-autoloads sml-mode-autoloads sieve-autoloads
sh-script-autoloads sgml-autoloads scheme-autoloads rmail-autoloads
reftex-autoloads python-modes-autoloads prog-modes-autoloads pgg-autoloads
perl-modes-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads
oo-browser-autoloads ocaml-autoloads net-utils-autoloads mmm-mode-autoloads
misc-games-autoloads mailcrypt-autoloads mail-lib-autoloads ispell-autoloads
ilisp-autoloads igrep-autoloads ibuffer-autoloads gnats-autoloads
general-docs-autoloads games-autoloads fsf-compat-autoloads
frame-icon-autoloads forms-autoloads footnote-autoloads eterm-autoloads
ess-autoloads erc-autoloads emerge-autoloads elib-autoloads eieio-autoloads
efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads
edebug-autoloads ecrypto-autoloads dired-autoloads dictionary-autoloads
debug-autoloads cookie-autoloads cc-mode-autoloads calendar-autoloads
calc-autoloads c-support-autoloads build-autoloads auctex-autoloads
apel-autoloads skk-autoloads mule-base-autoloads lookup-autoloads
locale-autoloads leim-autoloads latin-unity-autoloads
latin-euro-standards-autoloads egg-its-autoloads edict-autoloads
modules-autoloads mule-autoloads auto-autoloads auto-show fontl-hooks
canna-leim tibetan slovenian czech romanian lao devanagari indian cyrillic
code-cmds gutter-items behavior itimer auto-save lisp-mode easymenu
easy-mmode iso8859-1 page buff-menu lib-complete loadhist cus-file derived
newcomment rsz-minibuf env text-props frame obsolete cus-start custom widget
cl-extra cl cl-19 packages backquote unicode tty-frames tty unix-processes
multicast network-streams subprocesses bigfloat ratio bignum number-types
modules berkeley-db dbm md5 xemacs mule gutter lisp-float-type
unix-default-eol-detection file-coding berkeley-unix devices base64)
Recent keystrokes:
-----------------
ESC O A ESC O A ESC O A ESC O A ESC O A ESC O A ESC
O A ESC O A ESC O A ESC O A ESC O A ESC O A ESC O A
ESC O A ESC O B ESC O B ESC O B ESC O B ESC O B C-x
b * S h TAB RET C-@ ESC < ESC w C-x b * s c TAB RET
ESC x r e p o r t - x e BS BS x e m a c s - b u g
RET
Recent messages (most recent first):
-----------------------------------
Loading xemacsbug...done
Loading xemacsbug...
5:43pm Mail
Quit
5:43pm Mail
5:43pm Mail
5:42pm Mail
Undo!
Undo...
5:42pm Mail
5:42pm Mail
5:41pm Mail
Quit
5:41pm Mail
5:40pm Mail
5:40pm Mail
5:40pm Mail
5:39pm Mail
Quit
5:39pm Mail
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
More information about the XEmacs-Beta
mailing list
