From f8e5df434e6a5d7c4fae9ca4f58a99839f6db375 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 20 Aug 1993 00:25:17 +0000 Subject: [PATCH] Byte-compile %print- functions. --- tools/comcom.lisp | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) diff --git a/tools/comcom.lisp b/tools/comcom.lisp index d2f016b04..131ee60a1 100644 --- a/tools/comcom.lisp +++ b/tools/comcom.lisp @@ -18,19 +18,6 @@ old-c::defstruct-slot-description) "C") -(defun vmdir (f) - (merge-pathnames - (make-pathname :directory nil :defaults f) - (merge-pathnames - (cond ((c:target-featurep :pmax) "mips/") - ((c:target-featurep :rt) "rt/") - ((c:target-featurep :hppa) "hppa/") - ((c:target-featurep :sparc) "sparc/") - ((c:target-featurep :x86) "x86/") - (t - (error "What machine is this?"))) - (make-pathname :directory (pathname-directory f))))) - (with-compiler-log-file ("target:compile-compiler.log" :optimize @@ -46,7 +33,8 @@ (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-" "$PRIMITIVE-TRANSLATE-" "$PARSE-")) (declare (optimize (safety 1)))) - (:macro (declare (optimize (speed 0)))) + ((:or :macro (match "$%PRINT-")) + (declare (optimize (speed 0)))) (:external (declare (optimize-interface (safety 2) (debug 1)))))) (comf "target:compiler/macros" :load *load-stuff* :byte-compile *byte-compile*) -- GitLab