Changeset 13857

Timestamp:

02/05/12 20:19:30 (11 years ago)

Author:

rschlatte

Message:

Enable :generic-function-class keyword.

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

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

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

@@ -1407 +1407 @@
   (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