From 011e5c23b3dcf4d18cdfb853a7d2b415343f2559 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Sun, 13 Jan 2008 11:41:49 +0100
Subject: [PATCH] Add-object still needs work.

---
 lsobjects.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lsobjects.lsp b/lsobjects.lsp
index 8325e54..62976e6 100644
--- a/lsobjects.lsp
+++ b/lsobjects.lsp
@@ -415,10 +415,10 @@ Returns a new object with parents PARENTS. If PARENTS is NIL,
   "Remove when completely replaced by add-object methods."
   (add-object x slot value))
 
-(defmethod add-object ((x (type proto-object)
+(defmethod add-object ((x proto-object)
 		       (slot symbol)
 		       &optional
-		       init)) ;; location))
+		       init) ;; location))
   ;; (check-object x)
   ;; (non-nil-symbol-p slot)
 ;  #+nil(if (nilp slot)
-- 
2.11.4.GIT