[armedbear-cvs] r13269 - trunk/abcl/src/org/armedbear/lisp

[Alessio Stalla]

Author: astalla
Date: Fri Apr 15 15:59:56 2011
New Revision: 13269

Log:
Fix error message


Modified:
   trunk/abcl/src/org/armedbear/lisp/jvm.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/jvm.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/jvm.lisp	Fri Apr 15 15:59:56 2011
@@ -86,7 +86,7 @@
   (declare (optimize speed))
   (declare (type (signed-byte 8) n))
   (when (not (<= -128 n 127))
-    (error "s2 argument ~A out of 16-bit signed range." n))
+    (error "s1 argument ~A out of 8-bit signed range." n))
   (if (< n 0)
       (1+ (logxor (- n) #xFF))
       n))