72 |
nil) |
nil) |
73 |
|
|
74 |
(deftest every.15 |
(deftest every.15 |
75 |
|
(every 'null '(nil nil t nil)) |
76 |
|
nil) |
77 |
|
|
78 |
|
(deftest every.16 |
79 |
|
(not (every 'null '(nil nil nil nil))) |
80 |
|
nil) |
81 |
|
|
82 |
|
;;; Error cases |
83 |
|
|
84 |
|
(deftest every.error.1 |
85 |
(classify-error (every 1 '(a b c))) |
(classify-error (every 1 '(a b c))) |
86 |
type-error) |
type-error) |
87 |
|
|
88 |
(deftest every.16 |
(deftest every.error.2 |
89 |
(classify-error (every #\a '(a b c))) |
(classify-error (every #\a '(a b c))) |
90 |
type-error) |
type-error) |
91 |
|
|
92 |
(deftest every.17 |
(deftest every.error.3 |
93 |
(classify-error (every #() '(a b c))) |
(classify-error (every #() '(a b c))) |
94 |
type-error) |
type-error) |
95 |
|
|
96 |
(deftest every.18 |
(deftest every.error.4 |
|
(every 'null '(nil nil t nil)) |
|
|
nil) |
|
|
|
|
|
(deftest every.19 |
|
|
(not (every 'null '(nil nil nil nil))) |
|
|
nil) |
|
|
|
|
|
(deftest every.20 |
|
97 |
(classify-error (every #'null 'a)) |
(classify-error (every #'null 'a)) |
98 |
type-error) |
type-error) |
99 |
|
|
100 |
(deftest every.21 |
(deftest every.error.5 |
101 |
(classify-error (every #'null 100)) |
(classify-error (every #'null 100)) |
102 |
type-error) |
type-error) |
103 |
|
|
104 |
(deftest every.22 |
(deftest every.error.6 |
105 |
(classify-error (every #'null 'a)) |
(classify-error (every #'null 'a)) |
106 |
type-error) |
type-error) |
107 |
|
|
108 |
(deftest every.23 |
(deftest every.error.7 |
109 |
(classify-error (every #'eq () 'a)) |
(classify-error (every #'eq () 'a)) |
110 |
type-error) |
type-error) |
111 |
|
|
112 |
|
(deftest every.error.8 |
113 |
|
(classify-error (every)) |
114 |
|
program-error) |
115 |
|
|
116 |
|
(deftest every.error.9 |
117 |
|
(classify-error (every #'null)) |
118 |
|
program-error) |