fixes the sign handling in the atoi stub (#1240)

Author: ivg

plugins/primus_lisp/lisp/ascii.lisp

@@ -10,8 +10,11 @@
       (= s 32)))
 
 (defun ascii-sign (s)
-  "(ascii-sign S) is 1 if S is + and -1 otherwise"
-  (if (= s ?+) 1 -1))
+  "(ascii-sign S) is 1 if S is +, -1 if it -, or 0 otherwise"
+  (case s
+    ?- -1
+    ?+  1
+    0))
 
 (defun ascii-is-digit (s)
   "(ascii-is-digit s) is true if S is an ascii representation of decimal digit"

plugins/primus_lisp/lisp/atoi.lisp

@@ -14,6 +14,9 @@
   (skip-all atoi-prefix s)
   (let ((v 0)
         (sign (ascii-sign (memory-read s))))
+    (if (= sign 0)
+        (set sign 1)
+      (incr s))
     (while (ascii-is-digit (memory-read s))
       (set v (+ (* v 10) (atoi-read-digit s)))
       (incr s))