From 8052131a85fd8474fd751267bbc5f80a124c7d90 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 7 Jun 2009 18:52:57 +0200 Subject: [PATCH] Fixed circular dependency on FILL, that failed if the compiled ECL needed to clear the cache before the block where FILL resides was defined. --- src/lsp/predlib.lsp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp index 251a17058..e54af8996 100644 --- a/src/lsp/predlib.lsp +++ b/src/lsp/predlib.lsp @@ -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*)