Ignore:
Timestamp:
Nov 20, 2008, 6:51:45 PM (12 years ago)
Author:
gz
Message:

Remove obsolete bootstrapping code, fix indentation

File:
1 edited

Legend:

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

    r11373 r11420  
    3737(defvar *lisp-compiler-version* 666 "I lost count.")
    3838
    39 #-BOOTSTRAPPED (defvar *record-pc-mapping* nil) ;; defined in level-1
    40 
    4139(defvar *nx-compile-time-types* nil)
    4240(defvar *nx-proclaimed-types* nil)
     
    102100                 ;; other reference) in code that's never executed.
    103101                 (loop for p = parent-note then (code-note-parent-note p)
    104                        when (null p)
    105                          return t
     102                       when (null p) return t
    106103                       when (code-note-source-note p)
    107                          return (eq (loop for n = source-note then s
    108                                           as s = (source-note-source n)
    109                                           unless (source-note-p s) return n)
    110                                     (loop for n = (code-note-source-note p) then s
    111                                           as s = (source-note-source n)
    112                                           unless (source-note-p s) return n))))
     104                       return (eq (loop for n = source-note then s
     105                                        as s = (source-note-source n)
     106                                        unless (source-note-p s) return n)
     107                                  (loop for n = (code-note-source-note p) then s
     108                                        as s = (source-note-source n)
     109                                        unless (source-note-p s) return n))))
    113110      (setq source-note nil))
    114111    (make-code-note :form form :source-note source-note :parent-note parent-note)))
Note: See TracChangeset for help on using the changeset viewer.