[movitz-cvs] CVS update: movitz/losp/muerte/symbols.lisp

[Frode Vatvedt Fjeld]

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 at 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