projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.3.72: enable linkage tables on Solaris/x86
[sbcl.git]
/
tests
/
mop-3.impure-cload.lisp
diff --git
a/tests/mop-3.impure-cload.lisp
b/tests/mop-3.impure-cload.lisp
index
173ba20
..
44b3a84
100644
(file)
--- a/
tests/mop-3.impure-cload.lisp
+++ b/
tests/mop-3.impure-cload.lisp
@@
-32,7
+32,7
@@
(let ((result '()))
(dolist (method methods)
(if (and (consp result)
(let ((result '()))
(dolist (method methods)
(if (and (consp result)
- (equal (method-qualifiers method)
+ (equal (method-qualifiers method)
(method-qualifiers (caar result))))
(push method (car result))
(push (list method) result)))
(method-qualifiers (caar result))))
(push method (car result))
(push (list method) result)))
@@
-40,19
+40,19
@@
(defmethod compute-applicable-methods ((gf msl-generic-function) arguments)
(reverse-method-list (call-next-method)))
(defmethod compute-applicable-methods ((gf msl-generic-function) arguments)
(reverse-method-list (call-next-method)))
-(defmethod compute-applicable-methods-using-classes
+(defmethod compute-applicable-methods-using-classes
((gf msl-generic-function) classes)
(reverse-method-list (call-next-method)))
((gf msl-generic-function) classes)
(reverse-method-list (call-next-method)))
-(defgeneric testgf07 (x)
+(defgeneric testgf07 (x)
(:generic-function-class msl-generic-function)
(:generic-function-class msl-generic-function)
- (:method ((x integer))
+ (:method ((x integer))
(cons 'integer (if (next-method-p) (call-next-method))))
(cons 'integer (if (next-method-p) (call-next-method))))
- (:method ((x real))
+ (:method ((x real))
(cons 'real (if (next-method-p) (call-next-method))))
(cons 'real (if (next-method-p) (call-next-method))))
- (:method ((x number))
+ (:method ((x number))
(cons 'number (if (next-method-p) (call-next-method))))
(cons 'number (if (next-method-p) (call-next-method))))
- (:method :around ((x integer))
+ (:method :around ((x integer))
(coerce (call-next-method) 'vector)))
(assert (equalp (list (testgf07 5.0) (testgf07 17))
(coerce (call-next-method) 'vector)))
(assert (equalp (list (testgf07 5.0) (testgf07 17))
@@
-69,22
+69,22
@@
(sb-pcl:method-specializers method)))
methods))
(sb-pcl:method-specializers method)))
methods))
-(defmethod compute-applicable-methods
+(defmethod compute-applicable-methods
((gf nonumber-generic-function) arguments)
(nonumber-method-list (call-next-method)))
((gf nonumber-generic-function) arguments)
(nonumber-method-list (call-next-method)))
-(defmethod compute-applicable-methods-using-classes
+(defmethod compute-applicable-methods-using-classes
((gf nonumber-generic-function) classes)
(nonumber-method-list (call-next-method)))
((gf nonumber-generic-function) classes)
(nonumber-method-list (call-next-method)))
-(defgeneric testgf08 (x)
+(defgeneric testgf08 (x)
(:generic-function-class nonumber-generic-function)
(:generic-function-class nonumber-generic-function)
- (:method ((x integer))
+ (:method ((x integer))
(cons 'integer (if (next-method-p) (call-next-method))))
(cons 'integer (if (next-method-p) (call-next-method))))
- (:method ((x real))
+ (:method ((x real))
(cons 'real (if (next-method-p) (call-next-method))))
(cons 'real (if (next-method-p) (call-next-method))))
- (:method ((x number))
+ (:method ((x number))
(cons 'number (if (next-method-p) (call-next-method))))
(cons 'number (if (next-method-p) (call-next-method))))
- (:method :around ((x integer))
+ (:method :around ((x integer))
(coerce (call-next-method) 'vector)))
(assert (equalp (list (testgf08 5.0) (testgf08 17))
(coerce (call-next-method) 'vector)))
(assert (equalp (list (testgf08 5.0) (testgf08 17))