X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fshebang.lisp;h=95b4480a0bfb143ba9e1961cda880feda0f63d84;hb=28d9bb7a509695caaf78d647b6aa1b0f02c0e83a;hp=9587efec44d96714ea61543f8e6a9da1c216a3ea;hpb=d3862cc781cabf52f15c2d3a164f992dbbba84f4;p=sbcl.git

diff --git a/src/cold/shebang.lisp b/src/cold/shebang.lisp
index 9587efe..95b4480 100644
--- a/src/cold/shebang.lisp
+++ b/src/cold/shebang.lisp
@@ -11,10 +11,11 @@
 
 (in-package "SB-COLD")
 
-;;;; definition of #!+ and #!- as a mechanism analogous to #+/#-,
-;;;; but redirectable to any list of features. (This is handy when
-;;;; cross-compiling for making a distinction between features of the
-;;;; host Common Lisp and features of the target SBCL.)
+;;;; definition of #!+ and #!- as a mechanism analogous to #+/#-, but
+;;;; for *SHEBANG-FEATURES* instead of CL:*FEATURES*. (This is handy
+;;;; when cross-compiling, so that we can make a distinction between
+;;;; features of the host Common Lisp and features of the target
+;;;; SBCL.)
 
 ;;; the feature list for the target system
 (export '*shebang-features*)
@@ -39,7 +40,7 @@
 (defun shebang-reader (stream sub-character infix-parameter)
   (declare (ignore sub-character))
   (when infix-parameter
-    (error "illegal read syntax: #~DT" infix-parameter))
+    (error "illegal read syntax: #~D!" infix-parameter))
   (let ((next-char (read-char stream)))
     (unless (find next-char "+-")
       (error "illegal read syntax: #!~C" next-char))