Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3183 Modified Files: symbols.lisp Log Message: Boundp was completely bogus (!). Also added a compiler-macro for boundp. Date: Wed Apr 14 16:03:38 2004 Author: ffjeld Index: movitz/losp/muerte/symbols.lisp diff -u movitz/losp/muerte/symbols.lisp:1.7 movitz/losp/muerte/symbols.lisp:1.8 --- movitz/losp/muerte/symbols.lisp:1.7 Tue Apr 6 10:30:48 2004 +++ movitz/losp/muerte/symbols.lisp Wed Apr 14 16:03:38 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Tue Sep 4 23:55:41 2001 ;;;; -;;;; $Id: symbols.lisp,v 1.7 2004/04/06 14:30:48 ffjeld Exp $ +;;;; $Id: symbols.lisp,v 1.8 2004/04/14 20:03:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -121,10 +121,7 @@ (movitz-accessor symbol movitz-symbol package)))) (defun boundp (symbol) - (etypecase symbol - (null nil) - (symbol - (not (eq (movitz-accessor symbol movitz-symbol value) 'unbound))))) + (boundp symbol)) (defun makunbound (symbol) (setf (symbol-value symbol)