68 |
(= (length s) 0)) |
(= (length s) 0)) |
69 |
nil) |
nil) |
70 |
|
|
71 |
|
;;; The TIME definition is weasely, so strenuous complaints from |
72 |
|
;;; implementors about specific tests lead me to remove them. |
73 |
|
;;; Someone didn't like this one at all. |
74 |
|
#| |
75 |
(deftest time.9 |
(deftest time.9 |
76 |
(let ((s (with-output-to-string |
(let ((s (with-output-to-string |
77 |
(*trace-output*) |
(*trace-output*) |
79 |
(time (return-from done nil)))))) |
(time (return-from done nil)))))) |
80 |
(= (length s) 0)) |
(= (length s) 0)) |
81 |
nil) |
nil) |
82 |
|
|# |
83 |
|
|
84 |
|
|