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)