Changeset 13269


Ignore:
Timestamp:
04/15/11 19:59:56 (11 years ago)
Author:
astalla
Message:

Fix error message

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/jvm.lisp

    r13222 r13269  
    8787  (declare (type (signed-byte 8) n))
    8888  (when (not (<= -128 n 127))
    89     (error "s2 argument ~A out of 16-bit signed range." n))
     89    (error "s1 argument ~A out of 8-bit signed range." n))
    9090  (if (< n 0)
    9191      (1+ (logxor (- n) #xFF))
Note: See TracChangeset for help on using the changeset viewer.