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) |