diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-21 10:17:53 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-21 10:17:53 +0000 |
commit | f87a31a02a7b0b84ed877880d9ae22253ce89671 (patch) | |
tree | b0820800d5babdd432d9232bc8c6e685ed5de1bd /src/boot/strap/utility.clisp | |
parent | 58dc9f8145468998071a2a69d3dbfb6c710eab39 (diff) | |
download | open-axiom-f87a31a02a7b0b84ed877880d9ae22253ce89671.tar.gz |
more cleanup
Diffstat (limited to 'src/boot/strap/utility.clisp')
-rw-r--r-- | src/boot/strap/utility.clisp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/boot/strap/utility.clisp b/src/boot/strap/utility.clisp index 7bfc9387..a832a3ce 100644 --- a/src/boot/strap/utility.clisp +++ b/src/boot/strap/utility.clisp @@ -10,7 +10,8 @@ |charMember?| |scalarMember?| |listMember?| |reverse| |reverse!| |lastNode| |append| |append!| |copyList| |substitute| |substitute!| |setDifference| |applySubst| - |applySubst!| |applySubstNQ| |remove| |removeSymbol|))) + |applySubst!| |applySubstNQ| |remove| |removeSymbol| + |atomic?|))) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Thing|) |%Thing|) |substitute|)) @@ -41,6 +42,10 @@ (|%List| |%Thing|)) |remove|)) +(DECLAIM (FTYPE (FUNCTION (|%Thing|) |%Boolean|) |atomic?|)) + +(DEFUN |atomic?| (|x|) (OR (NOT (CONSP |x|)) (EQ (CAR |x|) 'QUOTE))) + (DEFUN |objectMember?| (|x| |l|) (LOOP (COND |