X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fload.lisp;h=5694d984ceab55ab1f4aa279abbfa22f22608753;hb=dfa55a883f94470267b626dae77ce7e7dfac3df6;hp=68b50da8256f519ffb0a03f23211d716e19f2f24;hpb=cb7837b769ce190baec60a2159c33099816ea6e3;p=sbcl.git

diff --git a/src/code/load.lisp b/src/code/load.lisp
index 68b50da..5694d98 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -273,7 +273,7 @@
       (let* ((fhsss sb!c:*fasl-header-string-start-string*)
 	     (fhsss-length (length fhsss)))
 	(unless (= byte (char-code (schar fhsss 0)))
-	  (error "illegal fasl file header"))
+	  (error "illegal fasl file header: first byte"))
 	(do ((byte (read-byte stream) (read-byte stream))
 	     (count 1 (1+ count)))
 	    ((= byte sb!c:*fasl-header-string-stop-char-code*)
@@ -281,7 +281,7 @@
 	  (declare (fixnum byte count))
 	  (when (and (< count fhsss-length)
 		     (not (eql byte (char-code (schar fhsss count)))))
-	    (error "illegal fasl file header"))))
+	    (error "illegal fasl file header: subsequent byte"))))
 
       ;; Read and validate implementation and version, or die.
       (let* ((implementation-length (read-arg 4))