From ab6175a04c95c57b27edc6ceaf50639a086e58bc Mon Sep 17 00:00:00 2001 From: tony Date: Fri, 9 May 2008 21:34:31 +0200 Subject: [PATCH] docs. --- lsobjects.lsp | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lsobjects.lsp b/lsobjects.lsp index 9aee7e1..b021f6e 100644 --- a/lsobjects.lsp +++ b/lsobjects.lsp @@ -377,14 +377,18 @@ Returns a new object with parents PARENTS. If PARENTS is NIL, (list *OBJECT*) is (set-slot-entry-value slot-entry value) #+:constrainthooks (check-constraint-hooks x slot t)) (t - (if (find-slot x slot) + (if (find-slot x slot) ;; either way we error...? (error "object does not own slot ~s" slot) (error "no slot named ~s in this object" slot)))))) +;;; FIXME: THIS IS EVIL -- need to rename to proto-slot-value or similar, so +;;; that we can take advantage of CLOS. (defun slot-value (slot) "Args: (slot) + Must be used in a method. Returns the value of current objects slot -named SLOT." +named SLOT. +EVIL -- it conflicts with CLOS object slots." (get-slot-value (get-self) slot)) (defun slot-value-setf (slot value) @@ -476,6 +480,10 @@ Applies first method for SELECTOR found in OBJECT's precedence list to OBJECT and ARGS." (sendmsg object selector (ls-object-preclist object) args)) +;;;FIXME: Need to include a "setter" for "send". + + + ;;;; call-next-method - call inherited version of current method (defun call-next-method (&rest args) "Args (&rest args) -- 2.11.4.GIT