Commit 8f1a0319 authored by Nikodemus Siivola's avatar Nikodemus Siivola
Browse files

tests passing

parent 88a54e6c
......@@ -12,4 +12,5 @@
(:file "macros" :depends-on ("package"))
(:file "symbols" :depends-on ("package"))
(:file "arrays" :depends-on ("package"))
(:file "types" :depends-on ("package"))
(:file "numbers" :depends-on ("package" "sequences"))))
......@@ -108,7 +108,7 @@ SEQUENCE."
(defun first-elt (sequence)
"Returns the first element of SEQUENCE. Signals a type-error if SEQUENCE is
not a sequence, or is an empty sequence."
(cond ((cons sequence)
(cond ((consp sequence)
(car sequence))
((and (vectorp sequence) (plusp (length sequence)))
(aref sequence 0))
......
......@@ -250,7 +250,7 @@
(circular-list-p dotted)
(circular-list-p proper)
(circular-list-p tailcirc)))
(t nil nil nil nil t))
(t nil nil nil t))
(deftest circular-tree-p.1
(let* ((circle (circular-list 1 2 3 4))
......@@ -391,7 +391,7 @@
(deftest iota.3
(iota 3 :start 2 :step 3.0)
(2 5.0 8.0))
(2.0 5.0 8.0))
(deftest lerp.1
(lerp 0.5 1 2)
......@@ -411,7 +411,7 @@
(deftest mean.3
(mean '(1 2 10))
13/2)
13/3)
(deftest median.1
(median '(100 0 99 1 98 2 97))
......@@ -570,7 +570,7 @@
(deftest deletef.1
(let* ((x '(1 2 3))
(x* x)
(y #(1 2 3)))
(y (vector 1 2 3)))
(deletef x 2)
(deletef y 1)
(list x x* y))
......
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