Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |