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

Remove obsolete bootstrapping code

File:
1 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))))))
Note: See TracChangeset for help on using the changeset viewer.