Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 881)
+++ /trunk/ccl/lib/macros.lisp	(revision 882)
@@ -1588,5 +1588,7 @@
                                  (typep (cadr option) 'symbol))
                       (illegal-option option))
-                    `(:metaclass (find-class ',(cadr option))))
+                    `(:metaclass  ',(cadr option)))
+                   (:documentation
+                    `(:documentation ',(cadr option)))
                    (t
                     (list `',option-name `',(cdr option))))))
@@ -1657,5 +1659,5 @@
 			(duplicate-options slot)
 			(setq documentation-p t))
-                      (setq documentation (require-type (cadr options) 'string)))
+                      (setq documentation (cadr options)))
                      (t
                       (let* ((pair (or (assq (car options) other-options)
@@ -1670,8 +1672,8 @@
 		   ,@(when writers `(:writers ',writers))
 		   ,@(when type-p `(:type ',type))
-		   ,@(when documentation `(:documentation ,documentation))
+		   ,@(when documentation-p `(:documentation ,documentation))
                    ,@(mapcan #'(lambda (opt)
                                  `(',(car opt) ',(cdr opt))) other-options)))))
-	(let* ((direct-superclasses (or superclasses '(standard-object)))
+	(let* ((direct-superclasses superclasses)
 	       (direct-slot-specs (mapcar #'canonicalize-slot-spec slots))
 	       (other-options (apply #'append (mapcar #'canonicalize-defclass-option class-options ))))
@@ -1728,7 +1730,4 @@
 			(memq keyword (prog1 option-keywords (push keyword option-keywords))))		   
                    (signal-program-error "Duplicate option: ~s to ~s" keyword 'defgeneric))
-                  ((eq keyword :method-name)    ; used by generic-flet
-                   (if function-name (bad-option o))
-                   (setq function-name (cadr o)))
                   ((eq keyword :method-combination)
                    (unless (symbolp (cadr o))
Index: /trunk/ccl/lisp-kernel/darwin/Makefile
===================================================================
--- /trunk/ccl/lisp-kernel/darwin/Makefile	(revision 881)
+++ /trunk/ccl/lisp-kernel/darwin/Makefile	(revision 882)
@@ -52,5 +52,5 @@
 CDEFINES = -DDARWIN $(BROKEN_PREPROCESSOR_WORKAROUND) -DOPENMCL_MAJOR_VERSION=$(OPENMCL_MAJOR_VERSION) -DOPENMCL_MINOR_VERSION=$(OPENMCL_MINOR_VERSION)
 CDEBUG = -g
-COPT = -O2
+COPT = #-O2
 
 .s.o: