0.pre7.49:
[sbcl.git] / src / compiler / disassem.lisp
index d821b6b..1eea045 100644 (file)
               (,format-var (format-or-lose ',format-name))
               (args ,(gen-args-def-form field-defs format-var evalp))
               (funcache *disassem-function-cache*))
-         ;; FIXME: This should be SPEED 0 but can't be until we support
-         ;; byte compilation of components of the SBCL system.
-         ;;(declare (optimize (speed 0) (safety 0) (debug 0)))
          (multiple-value-bind (printer-fun printer-defun)
              (find-printer-fun ',uniquified-name
                               ',format-name
                                    "-PRINTER"))
         (make-printer-defun printer-source funstate name)))))
 \f
-;;;; 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))
         (bindings (make-arg-temp-bindings funstate)))
        (declare (type dchunk chunk)
                 (type instruction inst)
                 (type stream stream)
-                (type disassem-state dstate)
-                ;; FIXME: This should be SPEED 0 but can't be until we support
-                ;; byte compilation of components of the SBCL system.
-                #+nil (optimize (speed 0) (safety 0) (debug 0)))
+                (type disassem-state dstate))
        (macrolet ((local-format-arg (arg fmt)
                     `(funcall (formatter ,fmt) stream ,arg)))
          (flet ((local-tab-to-arg-column ()
             `(defun ,name (chunk labels dstate)
                (declare (type list labels)
                         (type dchunk chunk)
-                        (type disassem-state dstate)
-                        ;; FIXME: This should be SPEED 0 but can't be
-                        ;; until we support byte compilation of
-                        ;; components of the SBCL system.
-                        #+nil (optimize (speed 0) (safety 0) (debug 0)))
+                        (type disassem-state dstate))
                (flet ((local-filtered-value (offset)
                         (declare (type filtered-value-index offset))
                         (aref (dstate-filtered-values dstate) offset))
                 ))
             `(defun ,name (chunk dstate)
                (declare (type dchunk chunk)
-                        (type disassem-state dstate)
-                        ;; FIXME: This should be SPEED 0 but can't be
-                        ;; until we support byte compilation of
-                        ;; components of the SBCL system.
-                        #+nil (optimize (speed 0) (safety 0) (debug 0)))
+                        (type disassem-state dstate))
                (flet (((setf local-filtered-value) (value offset)
                        (declare (type filtered-value-index offset))
                        (setf (aref (dstate-filtered-values dstate) offset)