Subject: Re: macroexpand in cmucl
From: rpw3@rpw3.org (Rob Warnock)
Date: Tue, 10 Jan 2006 23:57:34 -0600
Newsgroups: comp.lang.lisp
Message-ID: <lYednSPz6-TTA1nenZ2dnUVZ_tGdnZ2d@speakeasy.net>
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