X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-type.lisp;h=14948067a92a7511d81df80d51738824dee3f6fe;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=166e38aff337e9232298c57d56b08bea7c624938;hpb=e240e076bc5bfa07a408a89d2e354e7ec9ff9341;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index 166e38a..1494806 100644
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -19,11 +19,6 @@
 ;;; a test that the host Lisp object OBJECT translates to a target SBCL
 ;;; type TYPE. (This behavior is needed e.g. to test for the validity of
 ;;; numeric subtype bounds read when cross-compiling.)
-;;;
-;;; KLUDGE: In classic CMU CL this was wrapped in a (DECLAIM (START-BLOCK
-;;; TYPEP %TYPEP CLASS-CELL-TYPEP)) to make calls efficient. Once I straighten
-;;; out bootstrapping and cross-compiling issues it'd likely be a good idea to
-;;; do this again. -- WHN 19990413
 (defun typep (object type)
   #!+sb-doc
   "Return T iff OBJECT is of type TYPE."