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

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

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

revision 1.3 by pfdietz, Tue Oct 15 12:30:53 2002 UTC revision 1.4 by pfdietz, Tue Oct 15 12:41:24 2002 UTC
# Line 76  Line 76 
76            (ignore-errors (delete-package p)))))            (ignore-errors (delete-package p)))))
77    t)    t)
78    
 ;;; This test is screwed up because of something I don't  
 ;;; understand about how to handle continuable errors  
   
79  (deftest make-package-6  (deftest make-package-6
80      (progn      (progn
81        (ignore-errors (delete-package #\X))        (ignore-errors (delete-package #\X))
82        (let ((p (ignore-errors (make-package #\X))))        (let ((p (make-package #\X)))
83          (prog1          (prog1
84              (and (packagep p)              (and (packagep p)
85                   (equal (package-name p) "X")                   (equal (package-name p) "X")
86                   (equal (package-nicknames p) nil)                   (equal (package-nicknames p) nil)
87                   (equal (package-use-list p) nil)                   ;; (equal (package-use-list p) nil)
88                   (equal (package-used-by-list p) nil))                   (equal (package-used-by-list p) nil))
89            (ignore-errors (delete-package p)))))            (ignore-errors (delete-package p)))))
90    t)    t)

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

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