Changeset 13782


Ignore:
Timestamp:
Jun 4, 2010, 7:11:06 PM (9 years ago)
Author:
rme
Message:

Remove some cruft.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nxenv.lisp

    r13067 r13782  
    2626  (require 'lispequ)
    2727)
    28 
    29 #-bootstrapped
    30 (eval-when (:compile-toplevel :load-toplevel :execute)
    31   (when (and (macro-function 'var-decls)
    32              (not (macro-function 'var-ref-forms)))
    33     (setf (macro-function 'var-ref-forms)
    34           (macro-function 'var-decls))))
    3528
    3629#+ppc-target (require "PPCENV")
     
    387380
    388381(defmacro %nx1-default-operator ()
    389  #-bccl
    390  `(nx1-default-operator)
    391  #+bccl
    392  `(gethash *nx-sfname* *nx1-operators*))
     382  `(nx1-default-operator))
    393383
    394384(defmacro defnx1 (name sym arglist &body forms)
     
    441431
    442432(defconstant $eaclosedbit 24)
    443 
    444 #+what?
    445 (progn
    446 ;;; condition codes :
    447 ;;; These are 68K condition code values, but the frontend uses them and
    448 ;;; both backends need to understand them.
    449 ;;; They're really backend-specific; it wouldn't hurt to have the frontend
    450 ;;; use a more "neutral" representation.
    451 (defconstant $ccT 0)
    452 (defconstant $ccEQ 7)
    453 (defconstant $ccNE 6)
    454 (defconstant $ccVC 8)
    455 (defconstant $ccMI 11)
    456 (defconstant $ccPL 10)
    457 (defconstant $ccGE 12)
    458 (defconstant $ccLT 13)
    459 (defconstant $ccGT 14)
    460 (defconstant $ccLE 15)
    461 )
    462 
    463433
    464434(defmacro %temp-push (value place &environment env)
Note: See TracChangeset for help on using the changeset viewer.