X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fwalk.lisp;h=2052f38139b8160ec9d4937b86e5c543156af97c;hb=d147d512602d761a2dcdfded506dd1a8f9a140dc;hp=ab7aef897808cb87276c8931b4428425b67e8357;hpb=77360ee4a1f94c41b807be7ad0e8687199fceef1;p=sbcl.git

diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp
index ab7aef8..2052f38 100644
--- a/src/pcl/walk.lisp
+++ b/src/pcl/walk.lisp
@@ -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
 
@@ -309,17 +309,12 @@
 
 (defun get-walker-template (x)
   (cond ((symbolp x)
-	 (or (get-walker-template-internal x)
-	     (get-implementation-dependent-walker-template x)))
+         (get-walker-template-internal x))
 	((and (listp x) (eq (car x) 'lambda))
 	 '(lambda repeat (eval)))
 	(t
 	 (error "can't get template for ~S" x))))
 
-;;; FIXME: This can go away in SBCL.
-(defun get-implementation-dependent-walker-template (x)
-  (declare (ignore x))
-  ())
 
 ;;;; the actual templates
 
@@ -535,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))
@@ -631,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))
@@ -680,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))