(block-next (component-head *component-being-compiled*))))
(or (> speed compilation-speed) (> space compilation-speed)))))
(defun default-segment-inst-hook ()
(block-next (component-head *component-being-compiled*))))
(or (> speed compilation-speed) (> space compilation-speed)))))
(defun default-segment-inst-hook ()