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

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

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

revision 1.8 by pfdietz, Tue Jul 1 02:08:54 2003 UTC revision 1.9 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 167  Line 167 
167      `(progn      `(progn
168         (declaim (special ,class-var-name))         (declaim (special ,class-var-name))
169                
170         (eval-when #+gcl (load eval compile)         (report-and-ignore-errors (setq ,class-var-name
171                    #-gcl (:load-toplevel :compile-toplevel :execute)                                         (defclass ,@(cdr args))))
          (ignore-errors (setq ,class-var-name (defclass ,@(cdr args)))))  
172    
173         (deftest ,(make-defclass-test-name class-name "-DEFCLASS-RETURNS-CLASS")         (deftest ,(make-defclass-test-name class-name "-DEFCLASS-RETURNS-CLASS")
174           (eqt (find-class ',class-name) ,class-var-name)           (eqt (find-class ',class-name) ,class-var-name)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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