X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=137f74dcbe3e583725f316bec927833a9340197e;hb=f73c1f391342c797b8daebe4e8c27e5923341b6d;hp=d5db2d6c416528cc34b1727e3a1b3c5201ddd44b;hpb=f6f238261f95e8ffff2870ed3ac6fc00ddf09ef2;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index d5db2d6..137f74d 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -442,7 +442,7 @@
 	    (describe-ir2-component component *compiler-trace-output*))
 
 	  (maybe-mumble "code ")
-	  (multiple-value-bind (code-length trace-table fixups)
+	  (multiple-value-bind (code-length trace-table fixup-notes)
 	      (generate-code component)
 
             #-sb-xc-host
@@ -459,7 +459,7 @@
 				    *code-segment*
 				    code-length
 				    trace-table
-				    fixups
+				    fixup-notes
 				    *compile-object*))
 	      (core-object
 	       (maybe-mumble "core")
@@ -467,7 +467,7 @@
 				    *code-segment*
 				    code-length
 				    trace-table
-				    fixups
+				    fixup-notes
 				    *compile-object*))
 	      (null))))))
 
@@ -835,9 +835,11 @@
 ;;; We parse declarations and then recursively process the body.
 (defun process-toplevel-locally (body path compile-time-too &key vars funs)
   (declare (list path))
-  (multiple-value-bind (forms decls) (parse-body body nil)
-    (let* ((*lexenv*
-	    (process-decls decls vars funs (make-continuation)))
+  (multiple-value-bind (forms decls)
+      (parse-body body :doc-string-allowed nil :toplevel t)
+    (let* ((*lexenv* (process-decls decls vars funs))
+           ;; FIXME: VALUES declaration
+           ;;
 	   ;; Binding *POLICY* is pretty much of a hack, since it
 	   ;; causes LOCALLY to "capture" enclosed proclamations. It
 	   ;; is necessary because CONVERT-AND-MAYBE-COMPILE uses the
@@ -1340,33 +1342,35 @@
 ;;; Return (VALUES NIL WARNINGS-P FAILURE-P).
 (defun sub-compile-file (info)
   (declare (type source-info info))
-  (let* ((*block-compile* *block-compile-arg*)
-	 (*package* (sane-package))
-	 (*policy* *policy*)
-	 (*lexenv* (make-null-lexenv))
-	 (*source-info* info)
-	 (sb!xc:*compile-file-pathname* nil)
-	 (sb!xc:*compile-file-truename* nil)
-	 (*toplevel-lambdas* ())
-	 (*fun-names-in-this-file* ())
-	 (*compiler-error-bailout*
-	  (lambda ()
-	    (compiler-mumble "~2&; fatal error, aborting compilation~%")
-	    (return-from sub-compile-file (values nil t t))))
-	 (*current-path* nil)
-	 (*last-source-context* nil)
-	 (*last-original-source* nil)
-	 (*last-source-form* nil)
-	 (*last-format-string* nil)
-	 (*last-format-args* nil)
-	 (*last-message-count* 0)
-	 ;; FIXME: Do we need this rebinding here? It's a literal
-	 ;; translation of the old CMU CL rebinding to
-	 ;; (OR *BACKEND-INFO-ENVIRONMENT* *INFO-ENVIRONMENT*),
-	 ;; and it's not obvious whether the rebinding to itself is
-	 ;; needed that SBCL doesn't need *BACKEND-INFO-ENVIRONMENT*.
-	 (*info-environment* *info-environment*)
-	 (*gensym-counter* 0))
+  (let ((*package* (sane-package))
+        (*readtable* *readtable*)
+        (sb!xc:*compile-file-pathname* nil) ; really bound in
+        (sb!xc:*compile-file-truename* nil) ; SUB-SUB-COMPILE-FILE
+
+        (*policy* *policy*)
+        (*lexenv* (make-null-lexenv))
+        (*block-compile* *block-compile-arg*)
+        (*source-info* info)
+        (*toplevel-lambdas* ())
+        (*fun-names-in-this-file* ())
+        (*compiler-error-bailout*
+         (lambda ()
+           (compiler-mumble "~2&; fatal error, aborting compilation~%")
+           (return-from sub-compile-file (values nil t t))))
+        (*current-path* nil)
+        (*last-source-context* nil)
+        (*last-original-source* nil)
+        (*last-source-form* nil)
+        (*last-format-string* nil)
+        (*last-format-args* nil)
+        (*last-message-count* 0)
+        ;; FIXME: Do we need this rebinding here? It's a literal
+        ;; translation of the old CMU CL rebinding to
+        ;; (OR *BACKEND-INFO-ENVIRONMENT* *INFO-ENVIRONMENT*),
+        ;; and it's not obvious whether the rebinding to itself is
+        ;; needed that SBCL doesn't need *BACKEND-INFO-ENVIRONMENT*.
+        (*info-environment* *info-environment*)
+        (*gensym-counter* 0))
     (handler-case
 	(with-compilation-values
 	 (sb!xc:with-compilation-unit ()