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

[Frode Vatvedt Fjeld]

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

Modified Files:
	los-closette.lisp 
Log Message:
sync

Date: Sun Aug 21 19:55:54 2005
Author: ffjeld

Index: movitz/losp/muerte/los-closette.lisp
diff -u movitz/losp/muerte/los-closette.lisp:1.34 movitz/losp/muerte/los-closette.lisp:1.35
--- movitz/losp/muerte/los-closette.lisp:1.34	Sun Aug 14 20:50:12 2005
+++ movitz/losp/muerte/los-closette.lisp	Sun Aug 21 19:55:54 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Jul 23 14:29:10 2002
 ;;;;                
-;;;; $Id: los-closette.lisp,v 1.34 2005/08/14 18:50:12 ffjeld Exp $
+;;;; $Id: los-closette.lisp,v 1.35 2005/08/21 17:55:54 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1310,11 +1310,13 @@
 	(and (slot-missing class object slot-name 'slot-boundp) t)
       (slot-boundp-using-class class object slot))))
 
-(defmethod slot-boundp-using-class ((class standard-class) object (slot standard-effective-slot-definition))
+(defmethod slot-boundp-using-class
+    ((class standard-class) object (slot standard-effective-slot-definition))
   (not (eq (load-global-constant new-unbound-value)
 	   (standard-instance-access object (slot-definition-location slot)))))
   
-(defmethod slot-boundp-using-class ((class funcallable-standard-class) object (slot standard-effective-slot-definition))
+(defmethod slot-boundp-using-class
+    ((class funcallable-standard-class) object (slot standard-effective-slot-definition))
   (not (eq (load-global-constant new-unbound-value)
 	   (svref (std-gf-instance-slots object) (slot-definition-location slot)))))
 
@@ -1329,12 +1331,14 @@
 	       object)
       (slot-makunbound-using-class class object slot))))
 
-(defmethod slot-makunbound-using-class ((class standard-class) object (slot standard-effective-slot-definition))
+(defmethod slot-makunbound-using-class
+    ((class standard-class) object (slot standard-effective-slot-definition))
   (setf (standard-instance-access object (slot-definition-location slot))
     (load-global-constant new-unbound-value))
   object)
   
-(defmethod slot-makunbound-using-class ((class funcallable-standard-class) object (slot standard-effective-slot-definition))
+(defmethod slot-makunbound-using-class
+    ((class funcallable-standard-class) object (slot standard-effective-slot-definition))
   (setf (svref (std-gf-instance-slots object) (slot-definition-location slot))
     (load-global-constant new-unbound-value))
   object)