X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdlisp2.lisp;h=7186fc37a99449596ca304fcb0b02d5d013358c9;hb=a74b0bdb483504f6faddf8089f848f61ed94b92a;hp=45e62128fa899d47897c105138a4faab9e652cdf;hpb=106e6fe2df729b6027718f6f056721a95c047c17;p=sbcl.git

diff --git a/src/pcl/dlisp2.lisp b/src/pcl/dlisp2.lisp
index 45e6212..7186fc3 100644
--- a/src/pcl/dlisp2.lisp
+++ b/src/pcl/dlisp2.lisp
@@ -62,22 +62,10 @@
 		      (emit-one-or-n-index-reader/writer-macro :writer nil nil)))))
    nil))
 
-;;; Note this list is set up in dlisp3.lisp when all the necessary
-;;; macros have been loaded.
-(defvar *checking-or-caching-function-list* nil)
-
-(defmacro emit-checking-or-caching-function-precompiled ()
-  `(cdr (assoc (list cached-emf-p return-value-p metatypes applyp)
-	       *checking-or-caching-function-list*
-	       :test #'equal)))
-
 (defun emit-checking-or-caching-function (cached-emf-p return-value-p metatypes applyp)
-  (let ((fn (emit-checking-or-caching-function-precompiled)))
-    (if fn
-	(values fn nil)
-	(values (emit-checking-or-caching-function-preliminary
-		 cached-emf-p return-value-p metatypes applyp)
-		t))))
+  (values (emit-checking-or-caching-function-preliminary
+	   cached-emf-p return-value-p metatypes applyp)
+	  t))
 
 (defvar *not-in-cache* (make-symbol "not in cache"))