/[gcl]/gcl/ansi-tests/time.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/time.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sun Dec 12 16:34:02 2004 UTC revision 1.2 by pfdietz, Tue Dec 14 11:49:27 2004 UTC
# Line 68  Line 68 
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*)
# Line 75  Line 79 
79                 (time (return-from done nil))))))                 (time (return-from done nil))))))
80      (= (length s) 0))      (= (length s) 0))
81    nil)    nil)
82    |#
83    
84        

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26