/[gcl]/gcl/ansi-tests/structure-00.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/structure-00.lsp

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

revision 1.15 by pfdietz, Fri Jan 24 04:22:54 2003 UTC revision 1.16 by pfdietz, Tue Feb 4 02:43:19 2003 UTC
# Line 496  do the defstruct." Line 496  do the defstruct."
496                                         '(nil t)))                                         '(nil t)))
497                         collect type))                         collect type))
498                 nil)                 nil)
499                 (deftest ,(make-struct-test-name name "15A")
500                   (let ((class (find-class (quote ,name))))
501                     (notnot-mv (subtypep class 'structure-object)))
502                   t t)
503                 (deftest ,(make-struct-test-name name "15B")
504                   (notnot-mv (subtypep (quote ,name) 'structure-object))
505                   t t)
506    
507               ))               ))
508    
509         ;;; Documentation tests         ;;; Documentation tests

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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