commit 8862b4a533da571d839c333932be111c276dbc64
parent e139f19b4819ae0d2b212c1262bf95262b670627
Author: Commit-Bot <unknown>
Date: Fri, 3 Sep 2010 11:38:47 +0000
Automatic commit from picoLisp.tgz, From: Fri, 03 Sep 2010 11:38:47 GMT
Diffstat:
2 files changed, 8 insertions(+), 10 deletions(-)
diff --git a/lib/tags b/lib/tags
@@ -136,7 +136,7 @@ fish (1497 . "@src64/apply.l")
flg? (2419 . "@src64/subr.l")
flip (1686 . "@src64/subr.l")
flush (4916 . "@src64/io.l")
-fold (3345 . "@src64/sym.l")
+fold (3343 . "@src64/sym.l")
for (2247 . "@src64/flow.l")
fork (3269 . "@src64/flow.l")
format (2089 . "@src64/big.l")
@@ -186,8 +186,8 @@ lit (183 . "@src64/flow.l")
load (3994 . "@src64/io.l")
lock (1181 . "@src64/db.l")
loop (2190 . "@src64/flow.l")
-low? (3217 . "@src64/sym.l")
-lowc (3247 . "@src64/sym.l")
+low? (3215 . "@src64/sym.l")
+lowc (3245 . "@src64/sym.l")
lst? (2389 . "@src64/subr.l")
lt0 (2680 . "@src64/big.l")
lup (2226 . "@src64/sym.l")
@@ -206,7 +206,7 @@ max (2314 . "@src64/subr.l")
maxi (1395 . "@src64/apply.l")
member (2429 . "@src64/subr.l")
memq (2451 . "@src64/subr.l")
-meta (3137 . "@src64/sym.l")
+meta (3135 . "@src64/sym.l")
meth (1106 . "@src64/flow.l")
method (1070 . "@src64/flow.l")
min (2343 . "@src64/subr.l")
@@ -330,8 +330,8 @@ unify (3842 . "@src64/subr.l")
unless (1920 . "@src64/flow.l")
until (2104 . "@src64/flow.l")
up (712 . "@src64/main.l")
-upp? (3232 . "@src64/sym.l")
-uppc (3296 . "@src64/sym.l")
+upp? (3230 . "@src64/sym.l")
+uppc (3294 . "@src64/sym.l")
use (1592 . "@src64/flow.l")
usec (2596 . "@src64/main.l")
val (1463 . "@src64/sym.l")
diff --git a/src64/sym.l b/src64/sym.l
@@ -1,4 +1,4 @@
-# 10jun10abu
+# 03sep10abu
# (c) Software Lab. Alexander Burger
### Compare long names ###
@@ -3123,9 +3123,7 @@
if nc # No
shl A 1 # Loaded?
if c # Yes
- clrc # Set "not loaded"
- rcr A 1
- rcr A 1
+ ror A 2 # Set "not loaded"
ld (E) Nil # Clear value
or A SYM # Set 'extern' tag
ld (E TAIL) A
