[armedbear-cvs] r13857 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sun Feb  5 12:19:30 2012
New Revision: 13857

Log:
Enable :generic-function-class keyword.

... full ensure-class-using-class protocol not implemented yet.

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sun Feb  5 04:17:08 2012	(r13856)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sun Feb  5 12:19:30 2012	(r13857)
@@ -1406,6 +1406,8 @@
                                 &allow-other-keys)
   (when (autoloadp function-name)
     (resolve function-name))
+  (setf all-keys (copy-list all-keys))  ; since we modify it
+  (remf all-keys :generic-function-class)
   (let ((gf (find-generic-function function-name nil)))
     (if gf
         (progn