Skip to content
Snippets Groups Projects
Commit b5ab7251 authored by pfdietz's avatar pfdietz
Browse files

Conditionalize the workaround since PCL is not an ANSI package.

parent 5703d225
No related branches found
No related tags found
No related merge requests found
...@@ -12,7 +12,11 @@ ...@@ -12,7 +12,11 @@
(:method-combination list) (:method-combination list)
. .
#.(loop for s in *cl-types-that-are-classes-symbols* #.(loop for s in *cl-types-that-are-classes-symbols*
when (ignore-errors (pcl::find-class-from-cell s (pcl::find-class-cell s))) ;; FIXME
;; This was added to get gcl to not abort here,
;; but it masks ANSI noncompliance
#+gcl when #+gcl (ignore-errors (pcl::find-class-from-cell
s (pcl::find-class-cell s)))
collect collect
`(:method list ((x ,s)) ',s)))))) `(:method list ((x ,s)) ',s))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment