X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=385402e291138a6b0cb51ff1859e89e3e96dab91;hb=0dda5090b6c16a641000b4eb2dcd479f39b784ca;hp=85f00c544ddf66c75f4ad87cc2068ed50704cd9b;hpb=6a6735b1da0967fcbe59ec8634ef422121a87d75;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 85f00c5..385402e 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -448,7 +448,7 @@ evaluated as a PROGN."
 ;;; Wrap the RESTART-CASE expression in a WITH-CONDITION-RESTARTS if
 ;;; appropriate. Gross, but it's what the book seems to say...
 (defun munge-restart-case-expression (expression env)
-  (let ((exp (sb!xc:macroexpand expression env)))
+  (let ((exp (%macroexpand expression env)))
     (if (consp exp)
         (let* ((name (car exp))
                (args (if (eq name 'cerror) (cddr exp) (cdr exp))))