From: Nikodemus S. <de...@us...> - 2009-06-21 16:30:37
|
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) |