Raymond Toy <raymond.toy@ericsson.com> wrote:
+---------------
| Anyway, you can find a patch for this bug at
| http://common-lisp.net/webftp/pub/project/cmucl/release/19c/patches/cmucl-19c-patch-001.tar.gz
|
| You either just download the file, untar it, use asdf to load the
| patch, or just manually load the patch file.
+---------------
Hmmm... FWIW, it still fails for me even after loading the patch:
$ $CMU19c/bin/lisp -noinit -nositeinit
CMU Common Lisp 19c (19C), running on gar.agami.com
With core: /usr/u/rpw3/src/cmd/cmucl-19c/lib/cmucl/lib/lisp.core
Dumped on: Thu, 2005-11-17 06:12:58-08:00 on lorien
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
Python 1.1, target Intel x86
CLOS based on Gerd's PCL 2004/04/14 03:32:47
* (load "src/cmd/cmucl-19c-patch-001/cmucl-19c-patch-001.lisp")
; Loading #P"/usr/u/rpw3/src/cmd/cmucl-19c-patch-001/cmucl-19c-patch-001.lisp".
T
* (defmacro abbrev (short long)
`(defmacro ,short (&rest args)
`(,',long ,@args)))
ABBREV
* (macroexpand-1 '(abbrev mvb multiple-value-bind))
(DEFMACRO MVB (&REST ARGS)
`(MULTIPLE-VALUE-BIND ,@ARGS
Error in format: No more arguments.
~:<~^~W~^~5I ~:_~W~3I ~:@_~W~1I~@{ ~:@_~W~}~:>
^
[Condition of type FORMAT::FORMAT-ERROR]
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
((FLET #:WITH-PRETTY-STREAM-6
PRETTY-PRINT::PPRINT-MULTIPLE-VALUE-BIND)
#<pretty stream {5801AEF5}>)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists:
target:code/pprint.lisp.
0]
-Rob
p.s. Note that it works fine on CMUCL-19a:
With core: /usr/u/rpw3/src/cmd/cmucl-19a/lib/cmucl/lib/lisp.core
Dumped on: Wed, 2004-07-28 09:51:48-07:00 on lorien
...
> (macroexpand-1 '(abbrev mvb multiple-value-bind))
(DEFMACRO MVB (&REST ARGS) `(MULTIPLE-VALUE-BIND ,@ARGS))
T
>
-----
Rob Warnock <rpw3@rpw3.org>
627 26th Avenue <URL:http://rpw3.org/>
San Mateo, CA 94403 (650)572-2607