From a2fc3fc878da5b991e5ee6e1e311a3c0f122b4d5 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 20 Mar 2006 09:01:00 +0000
Subject: [PATCH] Do not be so picky and retrieve the list of arguments after a
 class option.

---
 src/clos/defclass.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clos/defclass.lsp b/src/clos/defclass.lsp
index fe70eec66..41590be9e 100644
--- a/src/clos/defclass.lsp
+++ b/src/clos/defclass.lsp
@@ -83,7 +83,7 @@
 		 (setf option-name :direct-default-initargs)
 		 (parse-default-initargs (rest option)))
 		(otherwise
-		 (or (last option-name 0) (last option-name)))))
+		 (list 'quote (rest option)))))
 	(setf options (list* option-name option-value options))))
     `(eval-when (compile load eval)
       (ensure-class ',name :direct-superclasses ',superclasses