/[gcl]/gcl/ansi-tests/packages-15.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-15.lsp

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

revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 191  Line 191 
191    t)    t)
192    
193  ;; Also: need to check that *PACKAGE* is used as a default  ;; Also: need to check that *PACKAGE* is used as a default
194    
195    (deftest use-package.error.1
196      (classify-error (use-package))
197      program-error)
198    
199    (deftest use-package.error.2
200      (progn
201        (ignore-errors (delete-package "UPE2"))
202        (ignore-errors (delete-package "UPE2A"))
203        (make-package "UPE2" :use ())
204        (make-package "UPE2A" :use ())
205        (classify-error (use-package "UPE2" "UPE2A" nil)))
206      program-error)
207    

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