/[gcl]/gcl/ansi-tests/make-condition.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-condition.lsp

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

revision 1.3 by pfdietz, Wed Aug 10 01:05:46 2005 UTC revision 1.4 by pfdietz, Wed Aug 31 01:20:02 2005 UTC
# Line 26  Line 26 
26    nil)    nil)
27    
28  (deftest make-condition.3  (deftest make-condition.3
29      (:notes :make-condition-with-compound-name :ansi-spec-problem)
30    (let* ((tp '(or program-error type-error))    (let* ((tp '(or program-error type-error))
31           (c (make-condition tp)))           (c (make-condition tp)))
32      (or (not (and (subtypep tp 'condition)      (or (not (and (subtypep tp 'condition)
# Line 35  Line 36 
36    t)    t)
37    
38  (deftest make-condition.4  (deftest make-condition.4
39      (:notes :make-condition-with-compound-name :ansi-spec-problem)
40    (let* ((tp '(and simple-error type-error))    (let* ((tp '(and simple-error type-error))
41           (c (make-condition tp)))           (c (make-condition tp)))
42      (or (not (and (subtypep 'simple-error tp)      (or (not (and (subtypep 'simple-error tp)

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