projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.1.20:
[sbcl.git]
/
tests
/
mop-18.impure-cload.lisp
diff --git
a/tests/mop-18.impure-cload.lisp
b/tests/mop-18.impure-cload.lisp
index
925c4ae
..
9c298de
100644
(file)
--- a/
tests/mop-18.impure-cload.lisp
+++ b/
tests/mop-18.impure-cload.lisp
@@
-32,7
+32,7
@@
(when *in-reinitialize-instance*
(setf *finalized-class* class)))
(when *in-reinitialize-instance*
(setf *finalized-class* class)))
-(defmethod reinitialize-instance :around
+(defmethod reinitialize-instance :around
((class test-standard-class) &key &allow-other-keys)
(let ((*in-reinitialize-instance* t))
(call-next-method)))
((class test-standard-class) &key &allow-other-keys)
(let ((*in-reinitialize-instance* t))
(call-next-method)))
@@
-52,16
+52,16
@@
(defclass test-funcallable-standard-class (funcallable-standard-class) ())
(defmethod validate-superclass
(defclass test-funcallable-standard-class (funcallable-standard-class) ())
(defmethod validate-superclass
- ((class test-funcallable-standard-class)
+ ((class test-funcallable-standard-class)
(superclass funcallable-standard-class))
t)
(superclass funcallable-standard-class))
t)
-(defmethod finalize-inheritance :before
+(defmethod finalize-inheritance :before
((class test-funcallable-standard-class))
(when *in-reinitialize-instance*
(setf *finalized-class* class)))
((class test-funcallable-standard-class))
(when *in-reinitialize-instance*
(setf *finalized-class* class)))
-(defmethod reinitialize-instance :around
+(defmethod reinitialize-instance :around
((class test-funcallable-standard-class) &key &allow-other-keys)
(let ((*in-reinitialize-instance* t))
(call-next-method)))
((class test-funcallable-standard-class) &key &allow-other-keys)
(let ((*in-reinitialize-instance* t))
(call-next-method)))
@@
-74,7
+74,7
@@
(assert (class-slots (find-class 'test-funcallable-standard-object)))
(assert (eq *finalized-class* (find-class 'test-standard-object)))
(assert (class-slots (find-class 'test-funcallable-standard-object)))
(assert (eq *finalized-class* (find-class 'test-standard-object)))
-(reinitialize-instance (find-class 'test-funcallable-standard-object)
+(reinitialize-instance (find-class 'test-funcallable-standard-object)
:direct-slots nil)
(assert (eq *finalized-class* (find-class 'test-funcallable-standard-object)))
:direct-slots nil)
(assert (eq *finalized-class* (find-class 'test-funcallable-standard-object)))
-(assert (null (class-slots (find-class 'test-funcallable-standard-object))))
\ No newline at end of file
+(assert (null (class-slots (find-class 'test-funcallable-standard-object))))