From 7d8294d86676a59b166652cad858faf29ce1a084 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Tue, 11 Mar 2008 19:04:12 +0100 Subject: [PATCH] added a few examples which should have thrown errors. YECH! --- ls-demo.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ls-demo.lisp b/ls-demo.lisp index ce44447..b50c91f 100644 --- a/ls-demo.lisp +++ b/ls-demo.lisp @@ -206,6 +206,10 @@ my-chol-decomp-test (send *test-proto* :own-slots) (send *test-proto* :has-slot 'proto-name) (send *test-proto* :has-slot 'PROTO-NAME) +(send *test-proto* :has-slot 'make-data) +(send *test-proto* :has-slot 'MAKE-DATA) +(send *test-proto* :has-method 'make-data) +(send *test-proto* :has-method 'MAKE-DATA) (defproto2 *test-proto3* (list) (list) (list) "test doc" t) -- 2.11.4.GIT