X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftypep.lisp;h=5c7ee7bb89ce249e1461b59a7f803a539e5b7fe6;hb=ec735ab75335c1744b39190314142a7e6f1ecdb3;hp=6807198ad9341bc703c22f7ec63c5adb78931d27;hpb=9d907d32cec5750eac109d7d06fc5981911866f7;p=sbcl.git

diff --git a/src/code/typep.lisp b/src/code/typep.lisp
index 6807198..5c7ee7b 100644
--- a/src/code/typep.lisp
+++ b/src/code/typep.lisp
@@ -13,9 +13,10 @@
 ;;; 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.)
-(defun typep (object type)
+(defun typep (object type &optional environment)
   #!+sb-doc
   "Is OBJECT of type TYPE?"
+  (declare (ignore environment))
   ;; Actually interpreting types at runtime is done by %TYPEP. The
   ;; cost of the extra function call here should be negligible
   ;; compared to the cost of interpreting types. (And the compiler