projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Micro-optimize DOUBLE-FLOAT-LOW-BITS on x68-64.
[sbcl.git]
/
contrib
/
sb-executable
/
sb-executable.lisp
diff --git
a/contrib/sb-executable/sb-executable.lisp
b/contrib/sb-executable/sb-executable.lisp
index
c37bd89
..
77740e0
100644
(file)
--- a/
contrib/sb-executable/sb-executable.lisp
+++ b/
contrib/sb-executable/sb-executable.lisp
@@
-32,7
+32,7
@@
strategy."
(defvar *exec-header*
"#!/bin/sh --
(defvar *exec-header*
"#!/bin/sh --
-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) (funcall (quote ~A)) (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) (funcall (quote ~A)) (exit))\" --end-toplevel-options ${1+\"$@\"}
")
(defun make-executable (output-file fasls
")
(defun make-executable (output-file fasls