From c0e5505b0945b748590f44cfc8bad7ee8c90ade3 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sun, 13 Jan 2008 02:46:41 +0100 Subject: [PATCH] replace cdr by rest for readability (lsobjects) --- lsobjects.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lsobjects.lsp b/lsobjects.lsp index a5b1ffb..ba07e95 100644 --- a/lsobjects.lsp +++ b/lsobjects.lsp @@ -195,7 +195,7 @@ Returns T if X and Y are objects and X inherits from Y, NIL otherwise." (defmethod find-S ((po proto-object)) (do ((result nil) - (parents (proto-object-parents po) (cdr parents))) + (parents (proto-object-parents po) (rest parents))) ((not (consp parents)) (delete-duplicates (cons po result))) (setf result (nconc (find-SC (first parents)) result)))) -- 2.11.4.GIT