allow nil arguments in (p-eq ...) calls
Wed Sep 23 05:24:50 PDT 2009 tomi.borbely@gmail.com
* allow nil arguments in (p-eq ...) calls
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-perec/persistence/object.lisp new-cl-perec/persistence/object.lisp
--- old-cl-perec/persistence/object.lisp 2014-07-28 23:40:22.000000000 -0700
+++ new-cl-perec/persistence/object.lisp 2014-07-28 23:40:22.000000000 -0700
@@ -92,7 +92,7 @@
(def (function o) p-eq (instance-1 instance-2)
"Tests if two instances are the same persistent instance. Normally there is at most one persistent instance for each oid in a transaction so eq may be safely used. On the other hand huge transactions may require to throw away instances form the instance cache which results in several instances for the same oid within the same transaction."
- (declare (type persistent-object instance-1 instance-2))
+ (declare (type (or null persistent-object) instance-1 instance-2))
(or (eq instance-1 instance-2)
(and instance-1
instance-2