[Sbcl-commits] CVS: sbcl/src/compiler dump.lisp,1.71,1.72

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv4761/src/compiler

Modified Files:
	dump.lisp 
Log Message:
1.0.29.27: add shebang line to fasls

* Don't advertise yet, and don't make fasls executable out of the box
  -- since the SBCL version used to run the fasl has to be the same as
  compiled it this is clearly not good for distributing stuff in
  general, just for local convenience.


Index: dump.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/dump.lisp,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -d -r1.71 -r1.72
--- dump.lisp	21 Jun 2009 10:26:25 -0000	1.71
+++ dump.lisp	21 Jun 2009 16:30:33 -0000	1.72
@@ -298,6 +298,13 @@
                          :if-exists :supersede
                          :element-type 'sb!assem:assembly-unit))
            (res (make-fasl-output :stream stream)))
+      ;; Before the actual FASL header, write a shebang line using the current
+      ;; runtime path, so our fasls can be executed directly from the shell.
+      (when *runtime-pathname*
+        (fasl-write-string
+         (format nil "#!~A --script~%"
+                 (native-namestring *runtime-pathname* :as-file t))
+         stream))
       ;; Begin the header with the constant machine-readable (and
       ;; semi-human-readable) string which is used to identify fasl files.
       (fasl-write-string *fasl-header-string-start-string* stream)