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 @@ ...@@ -411,7 +411,7 @@
(apply (the function effective-method-function) args) (apply (the function effective-method-function) args)
(discriminate (lambda (emf) (setf (gethash (the list classes) emfs) emf)) args classes))))))))) (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)) (cl:defmethod compute-discriminating-function ((gf standard-generic-function))
(if (eq (class-of gf) (find-class 'standard-generic-function)) (if (eq (class-of gf) (find-class 'standard-generic-function))
(lambda (&rest args) (lambda (&rest args)
...@@ -420,7 +420,7 @@ ...@@ -420,7 +420,7 @@
(apply discriminator args))) (apply discriminator args)))
(compute-discriminator gf #'call-next-method))) (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)) (cl:defmethod compute-discriminating-function ((gf standard-generic-function))
(compute-discriminator gf #'call-next-method)) (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