[movitz-cvs] CVS update: movitz/special-operators-cl.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv7104

Modified Files:
	special-operators-cl.lisp 
Log Message:
Minor edits and removed warnings.

Date: Tue Feb 10 13:06:38 2004
Author: ffjeld

Index: movitz/special-operators-cl.lisp
diff -u movitz/special-operators-cl.lisp:1.6 movitz/special-operators-cl.lisp:1.7
--- movitz/special-operators-cl.lisp:1.6	Wed Feb  4 10:25:23 2004
+++ movitz/special-operators-cl.lisp	Tue Feb 10 13:06:38 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 24 16:31:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: special-operators-cl.lisp,v 1.6 2004/02/04 15:25:23 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.7 2004/02/10 18:06:38 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -148,9 +148,7 @@
 			       appending
 				 (cond
 				  ((binding-lended-p binding)
-				   (error "Huh?") ; remove this clause..
-				   (append init-code
-					   `((:initialize-lended-lexical ,binding :eax))))
+				   (error "Huh?")) ; remove this clause..
 				  ;; #+ignore
 				  ((and (typep binding 'located-binding)
 					(not (binding-lended-p binding))
@@ -757,8 +755,9 @@
 		   ,result-form)))))))
 
 (define-special-operator require (&form form)
-  (let ((*require-dependency-chain* (and (boundp '*require-dependency-chain*)
-					 *require-dependency-chain*)))
+  (let ((*require-dependency-chain*
+	 (and (boundp '*require-dependency-chain*)
+	      (symbol-value '*require-dependency-chain*))))
     (declare (special *require-dependency-chain*))
     (destructuring-bind (module-name &optional path-spec)
 	(cdr form)