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

Modified Files: symbols.lisp Log Message: Somewhat improved makunbound.

Date: Wed Jun 9 10:21:01 2004 Author: ffjeld

Index: movitz/losp/muerte/symbols.lisp diff -u movitz/losp/muerte/symbols.lisp:1.12 movitz/losp/muerte/symbols.lisp:1.13 --- movitz/losp/muerte/symbols.lisp:1.12 Wed Apr 21 07:00:15 2004 +++ movitz/losp/muerte/symbols.lisp Wed Jun 9 10:21:01 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.12 2004/04/21 14:00:15 ffjeld Exp $ +;;;; $Id: symbols.lisp,v 1.13 2004/06/09 17:21:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -130,7 +130,8 @@

(defun makunbound (symbol) (setf (symbol-value symbol) - 'unbound)) + (load-global-constant unbound-value)) + symbol)

(defun fboundp (symbol) (etypecase symbol