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