Ignore:
Timestamp:
Oct 14, 2008, 6:30:00 PM (13 years ago)
Author:
gz
Message:

Merge/bootstrap assorted low level stuff from trunk - kernel, syscall stuff, lowmem-bias, formatting tweaks, a few bug fixes included

File:
1 edited

Legend:

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

    r10941 r11089  
    6565                   (neq (debug-optimize-quantity env) 3))   ; inline-self-calls
    6666               #'(lambda (env)
    67                    (unless (eql (safety-optimize-quantity env) 3)
    68                      (and (neq (compilation-speed-optimize-quantity env) 3)
    69                           (neq (speed-optimize-quantity env) 0)
    70                           (neq (debug-optimize-quantity env) 3))))  ; allow-transforms
     67                   (and (neq (compilation-speed-optimize-quantity env) 3)
     68                        (neq (safety-optimize-quantity env) 3)
     69                        (neq (speed-optimize-quantity env) 0)
     70                        (neq (debug-optimize-quantity env) 3))) ; allow-transforms
    7171               #'(lambda (var env)       ; force-boundp-checks
    7272                   (declare (ignore var))
     
    447447    warnings))
    448448
    449 ; This is called by, e.g., note-function-info & so can't be -too- funky ...
     449;;; This is called by, e.g., note-function-info & so can't be -too- funky ...
    450450;;; don't call proclaimed-inline-p or proclaimed-notinline-p with alphatized crap
    451451
     
    465465  (destructuring-bind (callee reason args spread-p)
    466466      (compiler-warning-args condition)
    467     (format stream "In ~a ~s with arguments ~:s,~%  "
    468             (if spread-p "an application of" "a call to")
     467    (format stream "In the ~a ~s with arguments ~:s,~%  "
     468            (if spread-p "application of" "call to")
    469469            callee
    470470            args)
     
    505505    (:environment-mismatch . report-compile-time-argument-mismatch)
    506506    (:lexical-mismatch . report-compile-time-argument-mismatch)   
    507     (:type . "Type declarations violated in ~S.")
     507    (:type . "Type declarations violated in ~S")
    508508    (:type-conflict . "Conflicting type declarations for ~S")
    509509    (:special-fbinding . "Attempt to bind compiler special name: ~s. Result undefined.")
     
    545545      (cdr (assq name (defenv.structrefs defenv))))))
    546546
    547 ;end
     547; end
Note: See TracChangeset for help on using the changeset viewer.