diff options
author | dos-reis <gdr@axiomatics.org> | 2008-12-27 02:20:07 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-12-27 02:20:07 +0000 |
commit | fdc64c2abcdf53d9afee4541503d1d17763ee92c (patch) | |
tree | f15a829314e96145be04e1eeeee3a16049faa572 /src/algebra/strap/LIST.lsp | |
parent | fb209a840dc764bdfa285ad3cb7575df21a43289 (diff) | |
download | open-axiom-fdc64c2abcdf53d9afee4541503d1d17763ee92c.tar.gz |
* algebra/net.spad.pamphlet (readBytes!$InputByteConduit): Set
length of buffer to count of bytes read.
* algebra/si.spad.pamphlet (SingleInteger): Now formally subdomain
of Integer.
Diffstat (limited to 'src/algebra/strap/LIST.lsp')
-rw-r--r-- | src/algebra/strap/LIST.lsp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/strap/LIST.lsp b/src/algebra/strap/LIST.lsp index 8e1a47d8..55078e68 100644 --- a/src/algebra/strap/LIST.lsp +++ b/src/algebra/strap/LIST.lsp @@ -155,7 +155,7 @@ (EXIT |lu|))))) (DEFUN |LIST;convert;$If;13| (|x| $) - (PROG (#0=#:G1442 |a| #1=#:G1443) + (PROG (#0=#:G1444 |a| #1=#:G1445) (RETURN (SEQ (SPADCALL (CONS (SPADCALL @@ -182,10 +182,10 @@ (GO G190) G191 (EXIT (NREVERSE0 #0#))))) (|getShellEntry| $ 43)))))) -(DEFUN |List| (#0=#:G1444) +(DEFUN |List| (#0=#:G1446) (PROG () (RETURN - (PROG (#1=#:G1445) + (PROG (#1=#:G1447) (RETURN (COND ((LETT #1# |