From cafe17ad9d69cf82b2dbb556709351c301d47026 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 1 Sep 1993 10:00:47 +0000 Subject: [PATCH] Byte compile printers. --- compiler/disassem.lisp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index d77aa8141..32e80e513 100644 --- a/compiler/disassem.lisp +++ b/compiler/disassem.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.22 1993/08/24 13:01:32 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.23 1993/09/01 10:00:47 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -975,9 +975,7 @@ `(progn ,@(compile-printer-list source funstate))))) ;;; ---------------------------------------------------------------- -;;; Note that these things are compiled with (speed 3) (safety 0) more -;;; for the resulting size of the code than for actual speed (compiling -;;; with space>speed usually increases the size of the code!)... +;;; Note that these things are compiled byte compiled to save space. (defun make-printer-defun (source funstate function-name) (let ((printer-form (compile-printer-list source funstate)) @@ -987,7 +985,8 @@ (type instruction inst) (type stream stream) (type disassem-state dstate) - (optimize (speed 3) (safety 0) (debug 0))) + #+small (declare (optimize (speed 0) (safety 0) (debug 0)))) + (macrolet ((local-format-arg (arg fmt) `(funcall (formatter ,fmt) stream ,arg))) (flet ((local-tab-to-arg-column () @@ -1224,7 +1223,8 @@ (declare (type list labels) (type dchunk chunk) (type disassem-state dstate) - (optimize (speed 3) (safety 0) (debug 0))) + #+small + (declare (optimize (speed 0) (safety 0) (debug 0)))) (flet ((local-filtered-value (offset) (declare (type filtered-value-index offset)) (aref (dstate-filtered-values dstate) offset)) @@ -1260,7 +1260,8 @@ `(defun ,name (chunk dstate) (declare (type dchunk chunk) (type disassem-state dstate) - (optimize (speed 3) (safety 0) (debug 0))) + #+small + (optimize (speed 0) (safety 0) (debug 0))) (flet (((setf local-filtered-value) (value offset) (declare (type filtered-value-index offset)) (setf (aref (dstate-filtered-values dstate) offset) @@ -1609,7 +1610,7 @@ (,format-var (format-or-lose ',format-name ,(format-table-name))) (args ,(gen-args-def-form field-defs format-var evalp)) (funcache ,(function-cache-name))) - #+small (declare (optimize (speed 0))) + #+small (declare (optimize (speed 0) (safety 0) (debug 0))) (multiple-value-bind (printer-fun printer-defun) (find-printer-fun ,(if (eq printer-form :default) `(format-default-printer ,format-var) -- GitLab