From f10b42f07a9f5911516f8bf56116391d0b027354 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Tue, 11 Mar 2008 18:51:14 +0100 Subject: [PATCH] removed silly comment spacers. --- lsobjects.lsp | 4 ---- 1 file changed, 4 deletions(-) diff --git a/lsobjects.lsp b/lsobjects.lsp index 50e603e..9aee7e1 100644 --- a/lsobjects.lsp +++ b/lsobjects.lsp @@ -522,11 +522,9 @@ Call method belonging to another object on current object." (let ((doc-entry (find-documentation object sym nil))) ;; FIXME: verify (if doc-entry (return (rest doc-entry)))))) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; ;;;; DEFMETH Macro ;;;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defmacro defmeth (object name arglist first &rest body) "Syntax: (defmeth object method-name lambda-list [doc] {form}*) @@ -545,11 +543,9 @@ RETURNS: method-name." #'(lambda (self ,@arglist) (block ,name ,first ,@body))) ,name))) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Prototype Construction ;;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun find-instance-slots (x slots) (let ((result (nreverse (delete-duplicates (copy-list slots))))) -- 2.11.4.GIT