[Bug: 21.5-b28] Bug in #'loop

================================================================ 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＠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? _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta