Commit 798e4213 authored by pfdietz's avatar pfdietz

Changed various functions to the form that returns T for true.

parent 1e980149
......@@ -20,7 +20,7 @@
(deftest call-arguments-limit.4
(let* ((m (min 65536 (1- call-arguments-limit)))
(args (make-list m :initial-element 'a)))
(equal (apply #'list args) args))
(equalt (apply #'list args) args))
t)
(deftest call-arguments-limit.5
......
......@@ -143,9 +143,9 @@
(let* ((n (min lambda-parameters-limit 1024))
(vars (loop for i from 1 to n collect (gensym))))
(eval
`(eql ,n
(flet ((%f ,vars (+ ,@ vars)))
(%f ,@(loop for e in vars collect 1))))))
`(eqlt ,n
(flet ((%f ,vars (+ ,@ vars)))
(%f ,@(loop for e in vars collect 1))))))
t)
;;; Declarations and documentation strings are ok
......
......@@ -38,7 +38,7 @@
(and (not (fboundp n))
(eval `(defun ,n () nil))
(fboundp n)
(values (equal (check-values (fmakunbound n)) n)
(values (equalt (check-values (fmakunbound n)) n)
(fboundp n))))
t nil)
......
......@@ -153,9 +153,9 @@
(let* ((n (min lambda-parameters-limit 1024))
(vars (loop for i from 1 to n collect (gensym))))
(eval
`(eql ,n
(labels ((%f ,vars (+ ,@ vars)))
(%f ,@(loop for e in vars collect 1))))))
`(eqlt ,n
(labels ((%f ,vars (+ ,@ vars)))
(%f ,@(loop for e in vars collect 1))))))
t)
;;; Declarations and documentation strings are ok
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment