Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.


Diff of /src/clos/slotvalue.lsp [056335] .. [ed78ec] Maximize Restore

  Switch to side-by-side view

--- a/src/clos/slotvalue.lsp
+++ b/src/clos/slotvalue.lsp
@@ -138,12 +138,12 @@
 (defmethod slot-missing ((class t) object slot-name operation 
 			 &optional new-value)
   (declare (ignore operation new-value class))
-  (print slot-name)
-  (print (class-id class))
+  (print (list 'slot-missing slot-name (class-id class)))
   (error "~A is not a slot of ~A" slot-name object))
 (defmethod slot-unbound ((class t) object slot-name)
   (declare (ignore class))
+  (print (list 'slot-unbound (class-id class) (print slot-name)))
   (error 'unbound-slot :instance object :name slot-name))