Changeset 12412


Ignore:
Timestamp:
Jul 14, 2009, 8:49:58 PM (10 years ago)
Author:
gz
Message:

Remove obsolete bootstrapping code

Location:
branches/working-0711/ccl
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx-basic.lisp

    r12408 r12412  
    553553                                     (compiler-warning-source-note w1))))
    554554                    (let ((nrefs (compiler-warning-nrefs w1)))
    555                       #-BOOTSTRAPPED (when (eql nrefs 1) (setq nrefs nil))
    556555                      (setf (compiler-warning-nrefs w1)
    557556                            (cons (compiler-warning-source-note w)
     
    672671    ;(format stream ".")
    673672    (let ((nrefs (compiler-warning-nrefs condition)))
    674       #-BOOTSTRAPPED (when (eql nrefs 1) (setq nrefs nil))
    675673      (when nrefs
    676674        (format stream " (~D references)" (length nrefs))))))
  • branches/working-0711/ccl/compiler/nx.lisp

    r12339 r12412  
    139139    lfun))
    140140
    141 #-BOOTSTRAPPED (unless (find-class 'undefined-reference nil)
    142                  (deftype undefined-reference () 'undefined-function-reference)
    143                  (defclass undefined-type-reference (undefined-function-reference) ()))
    144 
    145141(defun signal-or-defer-warnings (warnings env)
    146142  (let* ((defenv (definition-environment env))
  • branches/working-0711/ccl/compiler/nx0.lisp

    r12356 r12412  
    320320(defun nx-substititute-constant-value (symbol value env)
    321321  (nx-apply-env-hook policy.allow-constant-substitution symbol value env))
    322 
    323 #-BOOTSTRAPPED
    324 (eval-when (compile)
    325   (unless (boundp 'policy.declarations-typecheck)
    326     (load "ccl:library;lispequ.lisp")))
    327322
    328323(defun nx-declarations-typecheck (env)
     
    21912186        (unless (listp note) note)))))
    21922187
    2193 #-BOOTSTRAPPED
    2194 (when (= 2 (let ((bits (lfun-bits #'defstruct-ref-transform)))
    2195              (+ (ldb $lfbits-numreq bits) (ldb $lfbits-numopt bits))))
    2196   (let ((old #'defstruct-ref-transform))
    2197     (fset 'defstruct-ref-transform (lambda (a b &optional env)
    2198                                      (declare (ignore env))
    2199                                      (funcall old a b)))))
    22002188
    22012189(defun nx-transform (form &optional (environment *nx-lexical-environment*) (source-note-map *nx-source-note-map*))
  • branches/working-0711/ccl/lib/nfcomp.lisp

    r12410 r12412  
    882882      (fcomp-output-form $fasl-macro env fn doc))
    883883    (fcomp-random-toplevel-form form env)))
    884 
    885 #-BOOTSTRAPPED (unless (fboundp 'note-type-info)
    886                  (fset 'note-type-info (nlambda bootstrapping-note-type-info (name kind env) (declare (ignore name kind env)))))
    887 
    888884
    889885(defun define-compile-time-structure (sd refnames predicate env)
Note: See TracChangeset for help on using the changeset viewer.