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

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

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

revision 1.2 by pfdietz, Mon Dec 13 13:25:18 2004 UTC revision 1.3 by pfdietz, Sun Dec 26 15:57:29 2004 UTC
# Line 62  Line 62 
62      (notnot (search "CAR" s :test #'string-equal)))      (notnot (search "CAR" s :test #'string-equal)))
63    t)    t)
64    
65    (deftest apropos.8
66      (let ((s (with-output-to-string
67                 (*standard-output*)
68                 (assert (null (multiple-value-list (apropos "CAR" nil)))))))
69        (notnot (search "CAR" s :test #'string-equal)))
70      t)
71    
72  ;;; Error tests  ;;; Error tests
73    
74  (deftest apropos.error.1  (deftest apropos.error.1

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

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