X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=b01695dd0e088cdf13e9e3cff2dae291ac723216;hb=ef11b09c41b1e344212f6a363892a849af7ff94e;hp=610990c6b55d9f2c6ad5c5715751464630f47531;hpb=41ed816c7915806abca6b09ecd2136458f27adcc;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 610990c..b01695d 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -801,7 +801,7 @@
 ;;; We parse declarations and then recursively process the body.
 (defun process-toplevel-locally (body path compile-time-too)
   (declare (list path))
-  (multiple-value-bind (forms decls) (sb!sys:parse-body body nil)
+  (multiple-value-bind (forms decls) (parse-body body nil)
     (let* ((*lexenv*
 	    (process-decls decls nil nil (make-continuation)))
 	   ;; Binding *POLICY* is pretty much of a hack, since it