Commit 5289cc75 authored by Pascal Costanza's avatar Pascal Costanza
Browse files

The optimization that caused problems with multi-threaded SBCL also causes...

The optimization that caused problems with multi-threaded SBCL also causes problems with Clozure. Fixed.

Ignore-this: bccad9a91ba48a4d962f7e0f6fd9cef9

darcs-hash:aa0bf229f69ecbbb6d940450c90c85878d3f4e74
parent cc72ebba
......@@ -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 (and sbcl sb-thread))
#-(or clisp clozure 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 (and sbcl sb-thread))
#+(or clisp clozure 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