/[gcl]/gcl/ansi-tests/class-name.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/class-name.lsp

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

revision 1.3 by pfdietz, Sat Jan 17 12:05:41 2004 UTC revision 1.4 by pfdietz, Sat Dec 10 13:32:18 2005 UTC
# Line 26  Line 26 
26    (typep* #'(setf class-name) 'standard-generic-function)    (typep* #'(setf class-name) 'standard-generic-function)
27    t)    t)
28    
29    (deftest setf-class-name.2
30      (let ((sym (gensym))
31            (newsym (gensym)))
32        (eval `(defclass ,sym () (a b c)))
33        (let ((class (find-class sym)))
34          (values
35           (eqlt (class-name class) sym)
36           (equalt
37            (multiple-value-list (setf (class-name (find-class sym)) newsym))
38            (list newsym))
39           (eqlt newsym (class-name class)))))
40      t t t)
41        
42    
43    ;;; Error tests
44    
45  (deftest class-name.error.1  (deftest class-name.error.1
46    (signals-error (class-name) program-error)    (signals-error (class-name) program-error)
47    t)    t)

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