- (optimize (insert-step-conditions
- ,(policy *lexenv* insert-step-conditions))))
+ (optimize (insert-step-conditions
+ ,(policy *lexenv* insert-step-conditions))))
`(locally (declare (optimize (insert-step-conditions 0)))
(step-variable ,form-string ,form))))
(list
`(locally (declare (optimize (insert-step-conditions 0)))
(step-variable ,form-string ,form))))
(list
(step-form `(step-form ,form-string
',(source-path-original-source *current-path*)
*compile-file-pathname*))
(step-form `(step-form ,form-string
',(source-path-original-source *current-path*)
*compile-file-pathname*))
;; KLUDGE: packages we're not interested in stepping.
(mapcar #'find-package '(sb!c sb!int sb!impl sb!kernel sb!pcl)))))))
(let ((lexenv *lexenv*))
;; KLUDGE: packages we're not interested in stepping.
(mapcar #'find-package '(sb!c sb!int sb!impl sb!kernel sb!pcl)))))))
(let ((lexenv *lexenv*))