X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=978a3c8e067fe7a3f856bf5db0e8782ff22fcf2a;hb=1b650be8b800cf96e2c268ae317fb26d0bf36827;hp=2379081aada5f6ae40a24a599d7f378a8cf082be;hpb=c41cb4c87eae7b04f844dca5f7edb5086c5d2d68;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 2379081..978a3c8 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -383,7 +383,7 @@
 		     ,n-cond
 		     (car *restart-clusters*)
 		   ,(if (eq name 'cerror)
-			`(cerror ,(second expression) ,n-cond)
+			`(cerror ,(second exp) ,n-cond)
 			`(,name ,n-cond))))
 	      expression))
 	expression)))