- (optimize (insert-step-conditions
- ,(policy *lexenv* insert-step-conditions))))
+ (optimize (insert-step-conditions
+ ,(policy *lexenv* insert-step-conditions))))
;; 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*))