/[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.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Thu Oct 10 02:06:31 2002 UTC
# Line 267  Line 267 
267      (handler-case      (handler-case
268          (make-package "A")          (make-package "A")
269        (error (c)        (error (c)
270            (if (member 'abort (mapcar #'restart-name (compute-restarts c))            (if (position 'abort (compute-restarts c)
271                        :test (complement #'eq))                          :key #'restart-name :test-not #'eq)
272                'success                'success
273              'failure)))              'failure)))
274    success)    success)
# Line 277  Line 277 
277      (handler-case      (handler-case
278          (make-package "Q")          (make-package "Q")
279        (error (c)        (error (c)
280            (if (member 'abort (mapcar #'restart-name (compute-restarts c))            (if (position 'abort (compute-restarts c)
281                        :test (complement #'eq))                          :key #'restart-name :test-not #'eq)
282                'success                'success
283              'failure)))              'failure)))
284    success)    success)
# Line 288  Line 288 
288          (progn (ignore-errors (delete-package "TEST1"))          (progn (ignore-errors (delete-package "TEST1"))
289                 (make-package "TEST1" :nicknames '("A")))                 (make-package "TEST1" :nicknames '("A")))
290        (error (c)        (error (c)
291            (if (member 'abort (mapcar #'restart-name (compute-restarts c))            (if (position 'abort (compute-restarts c)
292                        :test (complement #'eq))                          :key #'restart-name :test-not #'eq)
293                'success                'success
294              'failure)))              'failure)))
295    success)        success)    
# Line 299  Line 299 
299          (progn (ignore-errors (delete-package "TEST1"))          (progn (ignore-errors (delete-package "TEST1"))
300                 (make-package "TEST1" :nicknames '("Q")))                 (make-package "TEST1" :nicknames '("Q")))
301        (error (c)        (error (c)
302            (if (member 'abort (mapcar #'restart-name (compute-restarts c))            (if (position 'abort (compute-restarts c)
303                        :test (complement #'eq))                          :key #'restart-name :test-not #'eq)
304                'success                'success
305              'failure)))              'failure)))
306    success)    success)

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