From 896fa5d976b01610ceb97be320964105d077daf3 Mon Sep 17 00:00:00 2001
From: tony <tony@jeeves.blindglobe.net>
Date: Tue, 13 May 2008 12:43:52 +0200
Subject: [PATCH] generalized nop to handle more args.

---
 lsobjects.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lsobjects.lsp b/lsobjects.lsp
index 47d87ae..098c5bb 100644
--- a/lsobjects.lsp
+++ b/lsobjects.lsp
@@ -699,7 +699,7 @@ a list of objects. IVARS and CVARS must be lists."
 ;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defmeth *object* :nop ()
+(defmeth *object* :nop (&rest args)
 "Method args: ()
 
 Do a NOP.  Used to quiet compiler warnings."
-- 
2.11.4.GIT