/[cmucl]/src/tools/comcom.lisp
ViewVC logotype

Diff of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by wlott, Fri May 10 03:27:06 1991 UTC revision 1.18 by ram, Sat May 25 20:14:03 1991 UTC
# Line 21  Line 21 
21       :optimize       :optimize
22       '(optimize (speed 2) (space 2) (inhibit-warnings 2)       '(optimize (speed 2) (space 2) (inhibit-warnings 2)
23                  (safety #+small 0 #-small 1)                  (safety #+small 0 #-small 1)
24                  (debug-info #+small 1 #-small 2))                  (debug-info #+small .5 #-small 2))
25       :optimize-interface       :optimize-interface
26       '(optimize-interface (safety #+small 1 #-small 2)       '(optimize-interface (safety #+small 1 #-small 2)
27                            (debug-info 1))                            (debug-info .5))
28       :context-declarations       :context-declarations
29       '(#+small       '(#+small
30         ((:or :macro         ((:or :macro
31               (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-"               (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-"
32                       "$PRIMITIVE-TRANSLATE-" "$PARSE-"))                       "$PRIMITIVE-TRANSLATE-" "$PARSE-"))
33          (declare (optimize (safety 1))))          (declare (optimize (safety 1))))
34         (:external (declare (optimize-interface (safety 2))))))         (:external (declare (optimize-interface (safety 2) (debug-info 1))))))
35    
36  (comf "target:compiler/macros" :load *load-stuff*)  (comf "target:compiler/macros" :load *load-stuff*)
37  (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)  (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5