mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

compute-discriminating-function must not be inlined (it is a generic function)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-25 00:13:27 +02:00
parent 7f195ec616
commit 7cd82e0130
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/clos/kernel.lsp
View file

@ -321,10 +321,10 @@
(return-from gf-type base))))))
(when (and *clos-booted* (eq gf-type t))
(multiple-value-bind (function optimize)
(compute-discriminating-function gfun)
(locally (declare (notinline compute-discriminating-function))
(compute-discriminating-function gfun))
(unless optimize
(setf gf-type function))))
;(print (list (generic-function-name gfun) gf-type))
(set-funcallable-instance-function gfun gf-type)))
@ -377,9 +377,6 @@
(defun sort-applicable-methods (gf applicable-list args)
(declare (optimize (safety 0) (speed 3)))
(when (null applicable-list)
(print `(not-applicable ,(generic-function-name gf)
,(mapcar #'type-of args))))
(let ((f (generic-function-a-p-o-function gf))
(args-specializers (mapcar #'class-of args)))
;; reorder args to match the precedence order