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

Fixed circular dependency on FILL, that failed if the compiled ECL needed to clear the cache before the block where FILL resides was defined.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-07 18:52:57 +02:00
parent b5031098b3
commit 8052131a85
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lsp/predlib.lsp
View file

@ -19,9 +19,8 @@
(defvar *upgraded-array-element-type-cache* (si:make-vector t 128 nil nil nil 0))
(defun subtypep-clear-cache ()
(when (fboundp 'fill)
(fill *subtypep-cache* nil)
(fill *upgraded-array-element-type-cache* nil)))
(si:fill-array-with-elt *subtypep-cache* nil 0 nil)
(si:fill-array-with-elt *upgraded-array-element-type-cache* nil 0 nil))
(defun create-type-name (name)
(when (member name *alien-declarations*)