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)