/[gcl]/gcl/cmpnew/gcl_cmpmain.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpmain.lsp

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

revision 1.19 by camm, Mon Nov 22 15:00:25 2004 UTC revision 1.20 by mjthomas, Tue Nov 23 07:30:24 2004 UTC
# Line 685  SYSTEM_SPECIAL_INIT Line 685  SYSTEM_SPECIAL_INIT
685                           (namestring o-pathname)))))                           (namestring o-pathname)))))
686    
687  (defun print-compiler-info ()  (defun print-compiler-info ()
688    (format t "~&OPTIMIZE levels: Safety=~d~:[ (No runtime error checking)~;~], Space=~d, Speed=~d~%"    (format t "~&OPTIMIZE levels: Safety=~d~:[ (No runtime error checking)~;~], Space=~d, Speed=~d, (Debug quality ignored)~%"
689            (cond ((null *compiler-check-args*) 0)            (cond ((null *compiler-check-args*) 0)
690                  ((null *safe-compile*) 1)                  ((null *safe-compile*) 1)
691                  ((null *compiler-push-events*) 2)                  ((null *compiler-push-events*) 2)
692                  (t 3))                  (t 3))
693            *safe-compile* *space* *speed*))            *safe-compile* *space* *speed* *debug*))
694    
695  (defun nconc-files (a b)  (defun nconc-files (a b)
696    (let* ((n 256)    (let* ((n 256)

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26