X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fwalk.lisp;h=e30ca28c170253a9edb266dd07960fd83ee2985f;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=4b5691a1d048179ce60e4d8442f23a0007f755e2;hpb=475c832b081651e66ad9446d4852c62086f5e740;p=sbcl.git

diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp
index 4b5691a..e30ca28 100644
--- a/src/pcl/walk.lisp
+++ b/src/pcl/walk.lisp
@@ -137,7 +137,7 @@
     (let ((entry (assoc macro (sb-c::lexenv-functions env) :test #'eq)))
       (and entry
 	   (eq (cadr entry) 'sb-c::macro)
-	   (function-lambda-expression (cddr entry))))))
+	   (values (function-lambda-expression (cddr entry)))))))
 
 (defmacro with-new-definition-in-environment
 	  ((new-env old-env macrolet/flet/labels-form) &body body)
@@ -241,7 +241,7 @@
       (variable-globally-special-p var)))
 
 (defun variable-globally-special-p (symbol)
-  (eq (sb-int:info :variable :kind symbol) :special))
+  (eq (info :variable :kind symbol) :special))
 
 ;;;; handling of special forms
 
@@ -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))