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

Diff of /gcl/ansi-tests/packages-14.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 183  Line 183 
183              (dolist (p '("H1" "H2" "G1" "G2" "G3"))              (dolist (p '("H1" "H2" "G1" "G2" "G3"))
184                (ignore-errors (delete-package p)))))))                (ignore-errors (delete-package p)))))))
185    t)    t)
186    
187    (deftest unuse-package.error.1
188      (classify-error (unuse-package))
189      program-error)
190    
191    (deftest unuse-package.error.2
192      (progn
193        (ignore-errors (delete-package "UPE2"))
194        (ignore-errors (delete-package "UPE2A"))
195        (make-package "UPE2" :use ())
196        (make-package "UPE2A" :use '("UPE2"))
197        (classify-error (unuse-package "UPE2" "UPE2A" nil)))
198      program-error)

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