Changeset 12618

Timestamp:

Aug 17, 2009, 4:42:31 AM (15 years ago)

Author:

gz

Message:

Remove obsolete bootstrapping code

File:

• trunk/source/compiler/nx-basic.lisp (modified) (1 diff)

trunk/source/compiler/nx-basic.lisp

@@ -204 +204 @@
 
 (%include "ccl:compiler;lambda-list.lisp")
-
-#-BOOTSTRAPPED (unless (fboundp 'types-disjoint-p)
-                 (fset 'types-disjoint-p (lambda (t1 t2 &optional env) t1 t2 env nil)))