[Sbcl-commits] CVS: sbcl/contrib/sb-executable sb-executable.lisp,1.1,1.2

[Daniel B. <da...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-executable
In directory sc8-pr-cvs1:/tmp/cvs-serv17724/contrib/sb-executable

Modified Files:
	sb-executable.lisp 
Log Message:
0.8.2.22
	Timezone/DST fixes for years after 2038.  I hope.  This stuff
	is, I can't help feeling, needlessly confusing.  

	* (multiple-value-list 
           (decode-universal-time (encode-universal-time 0 0 12 28 7  2040)))
        (0 0 12 28 7 2040 5 T 0)

	* (multiple-value-list 
           (decode-universal-time (encode-universal-time 0 0 12 29 2  3040)))
	(0 0 12 29 2 3040 5 NIL 0)

	Someone decided that READ-LINE ought not to work for binary
	streams, so fix up SB-EXECUTABLE not to cheat in this way.




Index: sb-executable.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-executable/sb-executable.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sb-executable.lisp	21 Feb 2003 19:52:44 -0000	1.1
+++ sb-executable.lisp	8 Aug 2003 19:11:08 -0000	1.2
@@ -21,7 +21,7 @@
 
 (defvar *exec-header*
   "#!/bin/sh --
-exec sbcl --noinform ~{~A ~}--eval \"(with-open-file (i \\\"$0\\\" :element-type '(unsigned-byte 8)) (read-line i) (read-line i) (load i) (quit))\" --end-toplevel-options ${1+\"$@\"}
+exec sbcl --noinform ~{~A ~}--eval \"(with-open-file (i \\\"$0\\\" :element-type '(unsigned-byte 8)) (loop while (< ret 2) when (= (read-byte i) 10) count 1 into ret) (load i) (quit))\" --end-toplevel-options ${1+\"$@\"}
 ")
 
 (defun make-executable (output-file fasls