From: Daniel B. <da...@us...> - 2003-08-08 19:11:11
|
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 |