/[gcl]/gcl/ansi-tests/defclass.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defclass.lsp

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

revision 1.2 by pfdietz, Sat Mar 29 03:55:28 2003 UTC revision 1.3 by pfdietz, Thu Apr 3 05:35:10 2003 UTC
# Line 58  Line 58 
58    program-error)    program-error)
59    
60  (deftest defclass.error.9  (deftest defclass.error.9
61    (classify-error    (let ((option (gentemp "UNKNOWN-OPTION" (symbol-package :foo))))
62     (defclass defclass-error-9 ()      (eval
63       (foo bar)       `(classify-error
64       (#:unknown-class-option nil)))         (defclass defclass-error-9 ()
65             (foo bar)
66             (,option nil)))))
67    program-error)    program-error)
68    
69    

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