diff options
author | dos-reis <gdr@axiomatics.org> | 2011-01-31 01:48:20 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-01-31 01:48:20 +0000 |
commit | 03c09deff90cb2eb7a85730f7e74bce2df268b47 (patch) | |
tree | 9e4a0a2dc92091e3ffc1f21bfba4849dbc367b2e /src/interp/clam.boot | |
parent | a31c0a21788a17c1bce15120225bc5a15fa1da33 (diff) | |
download | open-axiom-03c09deff90cb2eb7a85730f7e74bce2df268b47.tar.gz |
* interp/vmlisp.lisp: Remove QREFELT, QSDEC1, QSETREFV, QSETVELT,
QSETVELT-1, QSINC1, QVELT, QVELT-1.
* algebra/si.spad.pamphlet: Use %iinc and %idec forms.
Diffstat (limited to 'src/interp/clam.boot')
-rw-r--r-- | src/interp/clam.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index a4b2f8b9..b4c45112 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2010, Gabriel Dos Reis. +-- Copyright (C) 2007-2011, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -608,10 +608,10 @@ hputNewProp(ht,op,argList,val) == listTruncate(l,n) == u:= l - n:= QSSUB1 n + n:= n - 1 while n ~= 0 and cons? u repeat - n:= QSSUB1 n - u:= rest u + n := n - 1 + u := rest u if cons? u then if cons? rest u and $reportInstantiations = true then recordInstantiation($op,CAADR u,true) |