Changeset 13857


Ignore:
Timestamp:
02/05/12 20:19:30 (9 years ago)
Author:
rschlatte
Message:

Enable :generic-function-class keyword.

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13837 r13857  
    14071407  (when (autoloadp function-name)
    14081408    (resolve function-name))
     1409  (setf all-keys (copy-list all-keys))  ; since we modify it
     1410  (remf all-keys :generic-function-class)
    14091411  (let ((gf (find-generic-function function-name nil)))
    14101412    (if gf
Note: See TracChangeset for help on using the changeset viewer.