Changeset 3564

Timestamp:

09/03/03 23:27:37 (20 years ago)

Author:

piso

Message:

More tests.

File:

• trunk/j/src/org/armedbear/lisp/rt.lisp (modified) (9 diffs)

trunk/j/src/org/armedbear/lisp/rt.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: rt.lisp,v 1.107 2003-09-02 16:16:55 piso Exp $
+;;; $Id: rt.lisp,v 1.108 2003-09-03 23:27:37 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -131 +131 @@
   (let ((rt::*passed* 0) (rt::*failed* 0)
         (suffix ".lsp")
-        (tests (or args (list "acons"
+        (tests (or args (list "abs"
+                              "acons"
                               "adjoin"
                               "and"
@@ -198 +199 @@
                               "elt"
                               "endp"
+                              "epsilons"
                               "eql"
                               "equal"
@@ -206 +208 @@
                               "evenp"
                               "every"
+                              "expt"
                               "fboundp"
                               "fceiling"
@@ -225 +228 @@
                               "function-lambda-expression"
                               "functionp"
+                              "gcd"
                               "gensym"
                               "get-properties"
@@ -278 +282 @@
                               "mapl"
                               "maplist"
+                              "max"
                               "member"
                               "member-if"
                               "member-if-not"
                               "merge"
+                              "min"
+                              "minus"
+                              "minusp"
                               "mismatch"
                               "multiple-value-bind"
@@ -315 +323 @@
                               "nunion"
                               "oddp"
+                              "oneminus"
+                              "oneplus"
                               "or"
                               "packages"
                               "pairlis"
                               "places"
+                              "plus"
+                              "plusp"
                               "pop"
                               "position"
@@ -335 +347 @@
                               "rassoc-if"
                               "rassoc-if-not"
+                              "rational"
+                              "rationalize"
                               "reduce"
                               "remf"
@@ -388 +402 @@
                               "tagbody"
                               "tailp"
+                              "times"
                               "tree-equal"
                               "truncate"