[elephant-cvs] CVS update: elephant/tests/mop-tests.lisp

[blee at common-lisp.net]

Update of /project/elephant/cvsroot/elephant/tests
In directory common-lisp.net:/tmp/cvs-serv22882/tests

Modified Files:
	mop-tests.lisp 
Log Message:
initarg / form tests

Date: Thu Sep  2 09:30:13 2004
Author: blee

Index: elephant/tests/mop-tests.lisp
diff -u elephant/tests/mop-tests.lisp:1.1 elephant/tests/mop-tests.lisp:1.2
--- elephant/tests/mop-tests.lisp:1.1	Mon Aug 30 23:39:09 2004
+++ elephant/tests/mop-tests.lisp	Thu Sep  2 09:30:12 2004
@@ -81,4 +81,13 @@
 
 (defclass p-initform-test () 
   ((slot1 :initform 10)) 
-  (:metaclass persistent-metaclass))
\ No newline at end of file
+  (:metaclass persistent-metaclass))
+
+(defclass p-initform-test-2 () 
+  ((slot1 :initarg :slot1 :initform 10)) 
+  (:metaclass persistent-metaclass))
+
+(setq pf (make-instance 'p-initform-test-2))
+(slot-value pf 'slot1)
+(setq pf (make-instance 'p-initform-test-2 :slot1 20))
+(slot-value pf 'slot1)