X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fpcl%2Fcache.lisp;h=64b53a963b462657e1dea849a5fd8a9f98e2636e;hb=93ff086ab8bea4dd1f34f80918935c17ac377337;hp=3ed4110da915480eec8f22e69fd5cc11d3232962;hpb=0f726536ee7ec85f3a9483a26d08bd7d1cd96750;p=sbcl.git

diff --git a/src/pcl/cache.lisp b/src/pcl/cache.lisp
index 3ed4110..64b53a9 100644
--- a/src/pcl/cache.lisp
+++ b/src/pcl/cache.lisp
@@ -468,13 +468,6 @@
 		((invalid-wrapper-p nwrapper)
 		 (error "wrapper returned from trap invalid")))
 	  nwrapper))))
-
-(defmacro check-wrapper-validity1 (object)
-  (let ((owrapper (gensym)))
-    `(let ((,owrapper (sb-kernel:layout-of object)))
-       (if (sb-kernel:layout-invalid ,owrapper)
-	   (check-wrapper-validity ,object)
-	   ,owrapper))))
 
 (defvar *free-caches* nil)