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

Slight optimization of the function that searches closure boundaries in CLOS

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-03-18 13:24:35 +01:00
parent 2d713f26f4
commit f36b002a5f
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/clos/method.lsp
View file

@ -132,16 +132,18 @@
(defun environment-contains-closure (env)
;;
;; As explained in compiler.d (make_lambda()), we use a symbol with name
;; "FUNCTION" to mark the beginning of a function. If we find that symbol
;; twice, it is quite likely that this form will end up in a closure.
;; As explained in compiler.d (make_lambda()), we use a symbol with
;; name "FUNCTION-BOUNDARY" to mark the beginning of a function. If
;; we find that symbol twice, it is quite likely that this form will
;; end up in a closure.
;;
(flet ((function-boundary (s)
(and (consp s)
(symbolp (setf s (first s)))
(null (symbol-package s))
(equal (symbol-name s) "FUNCTION"))))
(> (count-if #'function-boundary (car env)) 1)))
(let ((counter 0))
(declare (fixnum counter))
(dolist (item (car env))
(when (and (consp item)
(eq (first (the cons item)) 'si::function-boundary)
(> (incf counter) 1))
(return t)))))
(defun walk-method-lambda (method-lambda required-parameters env)
(declare (si::c-local)