Commit bc4e360b authored by pfdietz's avatar pfdietz

Fixed test bugs found by Sam Steingold.

parent 1fd6a8c6
......@@ -139,17 +139,14 @@
;;; nreconc
(deftest nreconc-1
(let* ((x (list 'a 'b 'c))
(y (nreverse (loop for e on x collect e))))
(setf x (nreconc x (copy-tree '(d e f))))
(and (eq x (car y))
(eq (cdr x) (cadr y))
(eq (cddr x) (caddr y))
x))
(let* ((x (list 'a 'b 'c))
(y (copy-tree '(d e f)))
(result (nreconc x y)))
(and (equal y '(d e f))
result))
(c b a d e f))
(deftest nreconc-2
(handler-case
(nreconc nil 'a)
(error (c) c))
(nreconc nil 'a)
a)
......@@ -105,7 +105,7 @@
;;; Definition of a (setf ...) function
(deftest flet.17
(flet (((setf %f) (x y) (setf (car x) y)))
(flet (((setf %f) (x y) (setf (car y) x)))
(let ((z (list 1 2)))
(setf (%f z) 'a)
z))
......
......@@ -26,7 +26,9 @@
(deftest functionp.4
(loop for x in *cl-symbol-names*
for s = (find-symbol x "CL")
for f = (and (fboundp s) (symbol-function s))
for f = (and (fboundp s) (symbol-function s)
(not (special-operator-p s))
(not (macro-function s)))
always (or (null f)
(functionp f)))
t)
......
......@@ -104,7 +104,7 @@
;;; Definition of a (setf ...) function
(deftest labels.17
(labels (((setf %f) (x y) (setf (car x) y)))
(labels (((setf %f) (x y) (setf (car y) x)))
(let ((z (list 1 2)))
(setf (%f z) 'a)
z))
......
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