Commit 375d3168 authored by pfdietz's avatar pfdietz

Added test suggested by Peter Graves.

parent 1f08608d
......@@ -40,6 +40,14 @@
(append-6-body)
0)
;;; Test suggested by Peter Graves
(deftest append.7
(let ((x (list 'a 'b 'c 'd)))
(eq (append x nil) x))
nil)
;;; Order of evaluation tests
(deftest append.order.1
(let ((i 0) x y z)
(values
......
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