Changeset 9845


Ignore:
Timestamp:
Jun 28, 2008, 2:06:27 AM (11 years ago)
Author:
gb
Message:

%SET-GF-DCODE: typecheck for FUNCALLABLE-STANDARD-OBJECT, not
STANDARD-GENERIC-FUNCTION.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-dcode.lisp

    r9844 r9845  
    516516
    517517(defun %set-gf-dcode (gf dcode)
    518   (let ((gf (require-type gf 'standard-generic-function))
     518  (let ((gf (require-type gf 'funcallable-standard-object))
    519519        (dcode (require-type dcode 'function)))
    520520    (replace-function-code gf (or (cdr (assq dcode dcode-proto-alist))
Note: See TracChangeset for help on using the changeset viewer.