From 5823d808ad929c7d871fe7109aae0a78cd4bdb65 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Mon, 19 Nov 2007 08:36:05 +0100 Subject: [PATCH] Example prototype objects demo/test Used for building unittests, not fully functional yet. --- ls-demo.lisp | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/ls-demo.lisp b/ls-demo.lisp index c5ebb86..f368a9e 100644 --- a/ls-demo.lisp +++ b/ls-demo.lisp @@ -202,7 +202,23 @@ my-chol-decomp-test (defproto *test-proto*) *test-proto* (defmeth *test-proto* :make-data (&rest args) nil) -(send *test-proto* :make-data) + +(defvar my-proto-instance nil) +(setf my-proto-instance (send *test-proto* :new)) +(send *test-proto* :own-slots) +(send *test-proto* :has-slot 'proto-name) +(send *test-proto* :has-slot 'PROTO-NAME) + + +(defproto2 *test-proto2*) +*test-proto2* +(defmeth *test-proto* :make-data (&rest args) nil) + +(defvar my-proto-instance nil) +(setf my-proto-instance (send *test-proto* :new)) +(send *test-proto* :own-slots) +(send *test-proto* :has-slot 'proto-name) +(send *test-proto* :has-slot 'PROTO-NAME) ;;;; Testing -- 2.11.4.GIT