0.8.19.30: less COMPILE-FILE verbosity

[sbcl.git] / src / compiler / gtn.lisp

diff --git a/src/compiler/gtn.lisp b/src/compiler/gtn.lisp
index 3d6c0c8..c1fb1c7 100644 (file)
--- a/src/compiler/gtn.lisp
+++ b/src/compiler/gtn.lisp
@@ -68,7 +68,8 @@
                      (if (lambda-var-indirect thing)
                          *backend-t-primitive-type*
                          (primitive-type (leaf-type thing))))
-                    (nlx-info *backend-t-primitive-type*))))
+                    (nlx-info *backend-t-primitive-type*)
+                     (clambda *backend-t-primitive-type*))))
        (push (cons thing (make-normal-tn ptype))
              reversed-ir2-physenv-alist)))
 
@@ -137,8 +138,8 @@
                   (let ((*compiler-error-context* (lambda-bind (first funs))))
                     (compiler-notify
                      "Return value count mismatch prevents known return ~
-                      from these functions:~
-                      ~{~%  ~A~}"
+                       from these functions:~
+                       ~{~%  ~A~}"
                      (mapcar #'leaf-source-name
                              (remove-if-not #'leaf-has-source-name-p funs)))))
        (let ((ret (lambda-return fun)))
@@ -150,7 +151,7 @@
                  (let ((*compiler-error-context* (lambda-bind fun)))
                    (compiler-notify
                     "Return type not fixed values, so can't use known return ~
-                     convention:~%  ~S"
+                      convention:~%  ~S"
                     (type-specifier rtype)))
                  (return)))))))))
   (values))
@@ -209,6 +210,8 @@
            (make-ir2-nlx-info
             :home (when (member (cleanup-kind (nlx-info-cleanup nlx))
                                 '(:block :tagbody))
-                    (make-normal-tn *backend-t-primitive-type*))
+                     (if (nlx-info-safe-p nlx)
+                         (make-normal-tn *backend-t-primitive-type*)
+                         (make-stack-pointer-tn)))
             :save-sp (make-nlx-sp-tn physenv)))))
   (values))