[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv19944

Modified Files:
	symbols.lisp 
Log Message:
Added function remprop.


--- /project/movitz/cvsroot/movitz/losp/muerte/symbols.lisp	2004/11/25 16:46:01	1.27
+++ /project/movitz/cvsroot/movitz/losp/muerte/symbols.lisp	2007/02/22 22:11:21	1.28
@@ -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.27 2004/11/25 16:46:01 ffjeld Exp $
+;;;; $Id: symbols.lisp,v 1.28 2007/02/22 22:11:21 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -253,3 +253,6 @@
   (declare (ignore default))
   (setf (getf (symbol-plist symbol) indicator)
     value))
+
+(defun remprop (symbol indicator)
+  (remf (symbol-plist symbol) indicator))