Changeset 11038


Ignore:
Timestamp:
Oct 10, 2008, 5:58:11 PM (13 years ago)
Author:
gz
Message:

Remove some obsolete conditionalizations

Location:
trunk/source
Files:
2 edited

Legend:

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

    r10942 r11038  
    2929#+x8632-target (require "X8632ENV")
    3030#+x8664-target (require "X8664ENV")
    31 
    32 #-BOOTSTRAPPED (unless (fboundp '%cons-def-info)
    33                  (fset '%cons-def-info (lambda (&rest args) args nil))
    34                  (fset 'def-info.lfbits (lambda (def-info) def-info nil))
    35                  (fset 'def-info.keyvect (lambda (def-info) def-info nil))
    36                  (fset 'def-info.lambda (lambda (def-info) def-info nil)))
    37 #-BOOTSTRAPPED (unless (fboundp 'retrieve-environment-function-info)
    38                  (fset 'retrieve-environment-function-info (lambda (name env) name env nil)))
    3931
    4032(defconstant $vbittemporary 16)    ; a compiler temporary
  • trunk/source/lib/defstruct.lisp

    r10942 r11038  
    2323
    2424)
    25 
    26 #-BOOTSTRAPPED
    27 (unless (boundp '*one-arg-defun-def-info*)
    28   (setq *one-arg-defun-def-info* nil))
    2925
    3026(defvar %structure-refs% (make-hash-table :test #'eq))
Note: See TracChangeset for help on using the changeset viewer.