Commit cc72ebba authored by Pascal Costanza's avatar Pascal Costanza
Browse files

Removed an optimization for SBCL that doesn't work when :sb-thread is enabled.

Ignore-this: 44e7c9551542a559e8332cbf0854527d

darcs-hash:1e6fb0644a9ce033cea38c5951964769766ccfdd
parent 67747103
......@@ -411,7 +411,7 @@
(apply (the function effective-method-function) args)
(discriminate (lambda (emf) (setf (gethash (the list classes) emfs) emf)) args classes)))))))))
#-(or clisp lispworks)
#-(or clisp lispworks (and sbcl sb-thread))
(cl:defmethod compute-discriminating-function ((gf standard-generic-function))
(if (eq (class-of gf) (find-class 'standard-generic-function))
(lambda (&rest args)
......@@ -420,7 +420,7 @@
(apply discriminator args)))
(compute-discriminator gf #'call-next-method)))
#+(or clisp lispworks)
#+(or clisp lispworks (and sbcl sb-thread))
(cl:defmethod compute-discriminating-function ((gf standard-generic-function))
(compute-discriminator gf #'call-next-method))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment