Index: /branches/working-0711/ccl/compiler/nx-basic.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/nx-basic.lisp	(revision 12978)
+++ /branches/working-0711/ccl/compiler/nx-basic.lisp	(revision 12979)
@@ -204,7 +204,4 @@
 
 (%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)))