From: Giorgos Pontikakis
Subject: macroexpand in cmucl
Date: 
Message-ID: <1136760653.310385.274080@g47g2000cwa.googlegroups.com>
Dear group,

trying to understand nested backquotes, I define the following macro
(from Paul Graham's On Lisp):

(defmacro abbrev (short long)
  `(defmacro ,short (&rest args)
    `(,',long ,@args)))

and I try to evaluate
(macroexpand-1 '(abbrev mvb multiple-value-bind))

In sbcl (version 0.9.5) I get
(DEFMACRO MVB (&REST ARGS) `(MULTIPLE-VALUE-BIND ,@ARGS))
which is what I expected.

In cmucl (version 19c) I get:
Error in format: No more arguments.
  ~:<~^~W~^~5I ~:_~W~3I ··@·······@{ ··@_~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 {58021915}>)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no
longer exists:
  target:code/pprint.lisp.

Why the error? Can anyone tell me what am I doing wrong?

Thank you,
Giorgos Pontikakis