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

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

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

revision 1.11 by pfdietz, Fri Apr 25 11:54:00 2003 UTC revision 1.12 by pfdietz, Sat Apr 26 13:52:12 2003 UTC
# Line 777  Line 777 
777    (s1 (make-instance 'class-25 :allow-other-keys 'foo :allow-other-keys 'bar))    (s1 (make-instance 'class-25 :allow-other-keys 'foo :allow-other-keys 'bar))
778    foo)    foo)
779    
780    ;;;
781    
782    (defclass class-26 ()
783      ((s1-26 :writer (setf s1-26))))
784    
785    (deftest class-26.1
786      (let ((c (make-instance 'class-26)))
787        (values
788         (slot-boundp c 's1-26)
789         (setf (s1-26 c) 'x)
790         (slot-value c 's1-26)
791         (typep* #'(setf s1-26) 'generic-function)))
792      nil x x t)
793    
794    
795    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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