Changeset 13782

Timestamp:

Jun 4, 2010, 12:11:06 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Remove some cruft.

File:

• trunk/source/compiler/nxenv.lisp (modified) (3 diffs)

trunk/source/compiler/nxenv.lisp

@@ -26 +26 @@
   (require 'lispequ)
 )
-
-#-bootstrapped
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (when (and (macro-function 'var-decls)
-             (not (macro-function 'var-ref-forms)))
-    (setf (macro-function 'var-ref-forms)
-          (macro-function 'var-decls))))
 
 #+ppc-target (require "PPCENV")
@@ -387 +380 @@
 
 (defmacro %nx1-default-operator ()
- #-bccl
- `(nx1-default-operator)
- #+bccl
- `(gethash *nx-sfname* *nx1-operators*))
+  `(nx1-default-operator))
 
 (defmacro defnx1 (name sym arglist &body forms)
@@ -441 +431 @@
 
 (defconstant $eaclosedbit 24)
-
-#+what?
-(progn
-;;; condition codes :
-;;; These are 68K condition code values, but the frontend uses them and
-;;; both backends need to understand them.
-;;; They're really backend-specific; it wouldn't hurt to have the frontend
-;;; use a more "neutral" representation.
-(defconstant $ccT 0)
-(defconstant $ccEQ 7)
-(defconstant $ccNE 6)
-(defconstant $ccVC 8)
-(defconstant $ccMI 11)
-(defconstant $ccPL 10)
-(defconstant $ccGE 12)
-(defconstant $ccLT 13)
-(defconstant $ccGT 14)
-(defconstant $ccLE 15)
-)
-
 
 (defmacro %temp-push (value place &environment env)