X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1-step.lisp;h=3d3bf4187a94c7c7eb035e9598fcf4da8f228d18;hb=40e3ba03d0e1b824e4d1ae75d74246b975b70964;hp=8f852fe6f376db9d3cb4daf26248f0f4998100cc;hpb=28dcf682ef2a3c80b7bcdda00787dbb5e3893abe;p=sbcl.git

diff --git a/src/compiler/ir1-step.lisp b/src/compiler/ir1-step.lisp
index 8f852fe..3d3bf41 100644
--- a/src/compiler/ir1-step.lisp
+++ b/src/compiler/ir1-step.lisp
@@ -32,7 +32,7 @@
         (setf *stepping* nil))
       (step-next ()
         nil)
-      (step-into () 
+      (step-into ()
         t))))
 
 (defun step-variable (symbol value)
@@ -47,8 +47,8 @@
 
 (defun insert-step-conditions (form)
   `(locally (declare
-	     (optimize (insert-step-conditions
-			,(policy *lexenv* insert-step-conditions))))
+             (optimize (insert-step-conditions
+                        ,(policy *lexenv* insert-step-conditions))))
     ,form))
 
 ;;; Flag to control instrumentation function call arguments.
@@ -84,8 +84,8 @@
   #+sb-xc-host (declare (ignore form))
   #-sb-xc-host
   (flet ((step-symbol-p (symbol)
-           (not (member (symbol-package symbol) 
-                        (load-time-value 
+           (not (member (symbol-package symbol)
+                        (load-time-value
                          ;; KLUDGE: packages we're not interested in stepping.
                          (mapcar #'find-package '(sb!c sb!int sb!impl sb!kernel sb!pcl)))))))
     (let ((lexenv *lexenv*))