diff options
Diffstat (limited to 'src/boot/strap/utility.clisp')
-rw-r--r-- | src/boot/strap/utility.clisp | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/boot/strap/utility.clisp b/src/boot/strap/utility.clisp index 2d531fd2..e399057f 100644 --- a/src/boot/strap/utility.clisp +++ b/src/boot/strap/utility.clisp @@ -7,11 +7,15 @@ (EXPORT '(|objectMember?| |symbolMember?| |stringMember?| |charMember?| |scalarMember?| |listMember?| |reverse| |reverse!| - |lastNode| |append!| |copyList| |substitute| |substitute!| - |setDifference| |applySubst| |applySubst!| |remove| - |removeSymbol|)) + |lastNode| |append| |append!| |copyList| |substitute| + |substitute!| |setDifference| |applySubst| |applySubst!| + |remove| |removeSymbol|)) -(DECLAIM (FTYPE (FUNCTION ((|%List| (|%List| |%Thing|))) +(DECLAIM (FTYPE (FUNCTION ((|%List| |%Thing|) (|%List| |%Thing|)) + (|%List| |%Thing|)) + |append|)) + +(DECLAIM (FTYPE (FUNCTION ((|%List| |%Thing|) (|%List| |%Thing|)) (|%List| |%Thing|)) |append!|)) @@ -140,6 +144,8 @@ ((NULL |y|) |x|) (T (RPLACD (|lastNode| |x|) |y|) |x|))) +(DEFUN |append| (|x| |y|) (|append!| (|copyList| |x|) |y|)) + (DEFUN |assocSymbol| (|s| |al|) (PROG (|x|) (RETURN |