12 |
(:method-combination list) |
(:method-combination list) |
13 |
. |
. |
14 |
#.(loop for s in *cl-types-that-are-classes-symbols* |
#.(loop for s in *cl-types-that-are-classes-symbols* |
15 |
when (ignore-errors (pcl::find-class-from-cell s (pcl::find-class-cell s))) |
;; FIXME |
16 |
|
;; This was added to get gcl to not abort here, |
17 |
|
;; but it masks ANSI noncompliance |
18 |
|
#+gcl when #+gcl (ignore-errors (pcl::find-class-from-cell |
19 |
|
s (pcl::find-class-cell s))) |
20 |
collect |
collect |
21 |
`(:method list ((x ,s)) ',s)))))) |
`(:method list ((x ,s)) ',s)))))) |
22 |
|
|