/[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.14 by pfdietz, Tue Jan 14 11:38:07 2003 UTC revision 1.15 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 290  do the defstruct." Line 290  do the defstruct."
290                        (functionp (function ,p-fn))                        (functionp (function ,p-fn))
291                        (symbol-function (quote ,p-fn))                        (symbol-function (quote ,p-fn))
292                        (notnot (funcall #',p-fn s))                        (notnot (funcall #',p-fn s))
293                        (notnot (,p-fn s))                        (notnot-mv (,p-fn s))
294                        ))                        ))
295                 t)                 t)
296               (deftest ,(make-struct-test-name name "ERROR.1")               (deftest ,(make-struct-test-name name "ERROR.1")
# Line 455  do the defstruct." Line 455  do the defstruct."
455                          for read-only in slot-read-only                          for read-only in slot-read-only
456                          for field-fn in field-fns                          for field-fn in field-fns
457                          when read-only                          when read-only
458                          collect `(not (fboundp '(setf ,field-fn))))                          collect `(not-mv (fboundp '(setf ,field-fn))))
459                  t)                  t)
460                 t)))                 t)))
461    
# Line 464  do the defstruct." Line 464  do the defstruct."
464         ,@(unless type-option         ,@(unless type-option
465             `(             `(
466               (deftest ,(make-struct-test-name name 13)               (deftest ,(make-struct-test-name name 13)
467                 (notnot (typep (,make-fn) (find-class (quote ,name))))                 (notnot-mv (typep (,make-fn) (find-class (quote ,name))))
468                 t)                 t)
469               (deftest ,(make-struct-test-name name 14)               (deftest ,(make-struct-test-name name 14)
470                 (let ((class (find-class (quote ,name))))                 (let ((class (find-class (quote ,name))))
471                   (notnot (typep class 'structure-class)))                   (notnot-mv (typep class 'structure-class)))
472                 t)                 t)
473               (deftest ,(make-struct-test-name name 15)               (deftest ,(make-struct-test-name name 15)
474                 (notnot (typep (,make-fn) 'structure-object))                 (notnot-mv (typep (,make-fn) 'structure-object))
475                 t)                 t)
476               (deftest ,(make-struct-test-name name 16)               (deftest ,(make-struct-test-name name 16)
477                 (loop for type in *disjoint-types-list*                 (loop for type in *disjoint-types-list*

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

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