[Openmcl-cvs-notifications] r12618 - /trunk/source/compiler/nx-basic.lisp

[gz at clozure.com]

Author: gz
Date: Mon Aug 17 07:42:31 2009
New Revision: 12618

Log:
Remove obsolete bootstrapping code

Modified:
    trunk/source/compiler/nx-basic.lisp

Modified: trunk/source/compiler/nx-basic.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/nx-basic.lisp (original)
+++ trunk/source/compiler/nx-basic.lisp Mon Aug 17 07:42:31 2009
@@ -203,9 +203,6 @@
   (defun %default-compiler-policy () policy))
 =

 (%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)))
 =

 =0C;Syntactic Environment Access.
 =