X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fwalk.lisp;h=7ee529fdcca78fc78a11b7275a6f500bbaa58758;hb=d5aafdd8ab6387e12bac187048ed322bc96fb79a;hp=4b5691a1d048179ce60e4d8442f23a0007f755e2;hpb=26b8ddda97fcfa2e2c0eae3bd2fdb19717c5fa40;p=sbcl.git

diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp
index 4b5691a..7ee529f 100644
--- a/src/pcl/walk.lisp
+++ b/src/pcl/walk.lisp
@@ -530,7 +530,7 @@
       (relist-internal x args nil)))
 
 (defun relist* (x &rest args)
-  (relist-internal x args 't))
+  (relist-internal x args t))
 
 (defun relist-internal (x args *p)
   (if (null (cdr args))
@@ -626,7 +626,7 @@
 		    (not (symbolp (caddr arg)))
 		    (note-lexical-binding (caddr arg) env))))
 	  (t
-	   (error "Can't understand something in the arglist ~S" arglist))))
+	   (error "can't understand something in the arglist ~S" arglist))))
 
 (defun walk-let (form context env)
   (walk-let/let* form context env nil))
@@ -675,7 +675,7 @@
   (walker-environment-bind (new-env old-env)
     (let* ((possible-block-name (second form))
 	   (blocked-prog (and (symbolp possible-block-name)
-			      (not (eq possible-block-name 'nil)))))
+			      (not (eq possible-block-name nil)))))
       (multiple-value-bind (let/let* block-name bindings body)
 	  (if blocked-prog
 	      (values (car form) (cadr form) (caddr form) (cdddr form))