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

Remove obsolete bootstrapping code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r12359 r12411  
    545545                                 (%car w1-args)))
    546546                    (let ((nrefs (compiler-warning-nrefs w1)))
    547                       #-BOOTSTRAPPED (when (eql nrefs 1) (setq nrefs nil))
    548547                      (setf (compiler-warning-nrefs w1)
    549548                            (cons (compiler-warning-source-note w)
     
    662661    ;(format stream ".")
    663662    (let ((nrefs (compiler-warning-nrefs condition)))
    664       #-BOOTSTRAPPED (when (eql nrefs 1) (setq nrefs nil))
    665663      (when nrefs
    666664        (format stream " (~D references)" (length nrefs))))))
Note: See TracChangeset for help on using the changeset viewer.