Skip to content
Snippets Groups Projects
Commit c88db005 authored by rtoy's avatar rtoy
Browse files

Fix PCL call-method-list problem reported by Ole Rohne on cmucl-imp.

Patch from Ole, very slightly modified.
parent 8b703e12
No related branches found
No related tags found
No related merge requests found
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
;;; ************************************************************************* ;;; *************************************************************************
(file-comment (file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.21 2003/11/05 17:01:18 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.22 2004/03/29 23:39:38 rtoy Exp $")
(in-package "PCL") (in-package "PCL")
...@@ -513,9 +513,12 @@ ...@@ -513,9 +513,12 @@
;;; ;;;
(defun memf-test-converter (form gf method-alist-p wrappers-p) (defun memf-test-converter (form gf method-alist-p wrappers-p)
(flet ((method-key (method) (flet ((method-key (method)
(if (inlinable-method-p method) (cond ((inlinable-method-p method)
(method-function-name method) (method-function-name method))
'.fast-call-method.))) ((eq (get-method-call-type gf form method-alist-p wrappers-p)
'fast-method-call)
'.fast-call-method.)
(t .call-method.))))
(case (car-safe form) (case (car-safe form)
;; ;;
(call-method (call-method
...@@ -525,10 +528,7 @@ ...@@ -525,10 +528,7 @@
'.call-method.)) '.call-method.))
;; ;;
(call-method-list (call-method-list
(if (eq (get-method-list-call-type gf form method-alist-p wrappers-p) (mapcar #'method-key (call-method-list-methods form)))
'fast-method-call)
(mapcar #'method-key (call-method-list-methods form))
'.call-method-list.))
;; ;;
(check-applicable-keywords (check-applicable-keywords
'check-applicable-keywords) 'check-applicable-keywords)
......
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