picolisp

commit cb5b25128c92aafe375d7909eeafa738b59d5a84
parent 3c61866756a2b997cd2197de3123d31510dd7b2e
Author: Commit-Bot <unknown>
Date:   Thu, 22 Jul 2010 10:48:27 +0000

Automatic commit from picoLisp.tgz, From: Thu, 22 Jul 2010 10:48:27 GMT
Diffstat:
M
doc/refN.html
 | 
6
+++---
M
lib/native.l
 | 
5
++++-

2 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/doc/refN.html b/doc/refN.html
@@ -141,10 +141,10 @@ following arguments are the arguments to the native function.
 
 <pre><code>
    NIL   void
-   B     byte     # Byte (unsigned)
+   B     byte     # Byte (unsigned 8 bit)
    C     char     # Character (UTF-8, 1-3 bytes)
-   I     int      # Integer (32 bit)
-   N     long     # Long or pointer (64 bit)
+   I     int      # Integer (signed 32 bit)
+   N     long     # Long or pointer (signed 64 bit)
    S     string   # String (UTF-8)
 </code></pre>
 
diff --git a/lib/native.l b/lib/native.l
@@ -1,4 +1,4 @@
-# 19feb10abu
+# 22jul10abu
 # (c) Software Lab. Alexander Burger
 
 (de gcc (Nm L . Lst)
@@ -20,4 +20,7 @@
       (when (== '@ (fin (cadr L)))
          (push (cdaar L) 'pass) ) ) )
 
+(de unsigned (N)
+   (& `(dec (** 2 32)) (+ N `(** 2 32))) )
+
 # vi:et:ts=3:sw=3