Changeset 12037


Ignore:
Timestamp:
May 12, 2009, 8:01:03 PM (10 years ago)
Author:
gz
Message:

Remove some old bootstrapping code

Location:
trunk/source
Files:
3 edited

Legend:

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

    r12034 r12037  
    18131813
    18141814(defun nx1-whine (about &rest forms)
    1815   (if #-BOOTSTRAPPED (fboundp 'compiler-warning-source-note) #+BOOTSTRAPPED T
    1816     (push (make-condition (or (cdr (assq about *compiler-whining-conditions*)) 'compiler-warning)
    1817                           :function-name (list *nx-cur-func-name*)
    1818                           :source-note *nx-current-note*
    1819                           :warning-type about
    1820                           :args (or forms (list nil)))
    1821           *nx-warnings*)
    1822     ;; remove this case once bootstrapped.
    1823     (push (make-condition (or (cdr (assq about *compiler-whining-conditions*)) 'compiler-warning)
    1824                           :function-name (list *nx-cur-func-name*)
    1825                           :warning-type about
    1826                           :args (or forms (list nil)))
    1827           *nx-warnings*))
    1828   nil)
     1815  (push (make-condition (or (cdr (assq about *compiler-whining-conditions*)) 'compiler-warning)
     1816                        :function-name (list *nx-cur-func-name*)
     1817                        :source-note *nx-current-note*
     1818                        :warning-type about
     1819                        :args (or forms (list nil)))
     1820        *nx-warnings*))
    18291821
    18301822(defun p2-whine (afunc about &rest forms)
     
    19111903                                 (nx-error . 0)
    19121904                                 (compiler-bug . 0)))
    1913 
    1914 #-BOOTSTRAPPED (unless (fboundp 'nx1-check-format-call) (fset 'nx1-check-format-call (lambda (&rest x) (declare (ignore x)))))
    19151905
    19161906;;; Wimpy.
  • trunk/source/level-1/l1-reader.lisp

    r11385 r12037  
    30863086                      ((consp prev) (cons note prev))
    30873087                      (t (list note prev))))
    3088           (loop for sub in subform-notes as subnote = (require-type sub 'source-note)
     3088          (loop for subnote in subform-notes
    30893089            do (when (source-note-source subnote) (error "Subnote ~s already owned?" subnote))
    30903090            do (setf (source-note.source subnote) note))
  • trunk/source/lib/nfcomp.lisp

    r11768 r12037  
    4444(require "X8664-ARCH")
    4545) ;eval-when (:compile-toplevel :execute)
    46 
    47 ;; Temp, for loading into a lisp that doesn't have the report-deferred-warnings change
    48 ;; in level-1 yet.
    49 #-BOOTSTRAPPED (when (eql 0 (ldb $lfbits-numopt (lfun-bits #'report-deferred-warnings)))
    50                  (%fhave 'report-deferred-warnings (lambda (&optional x) x nil)))
    5146
    5247
Note: See TracChangeset for help on using the changeset viewer.