Changeset 9669


Ignore:
Timestamp:
Jun 4, 2008, 3:44:57 AM (11 years ago)
Author:
gz
Message:

Register eql method hack dcode protos

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos.lisp

    r9578 r9669  
    20692069      ;;; Let %%1st-arg-dcode deal with it.
    20702070      (%%1st-arg-dcode dt args))))
     2071(register-dcode-proto #'%%1st-arg-eql-method-hack-dcode *gf-proto*)
    20712072
    20722073(defun %%1st-two-arg-eql-method-hack-dcode (dt arg1 arg2)
     
    20752076      (funcall mf arg1 arg2)
    20762077      (%%1st-two-arg-dcode dt arg1 arg2))))
    2077 (register-dcode-proto #'reader-variable-location-dcode *gf-proto-two-arg*)
     2078(register-dcode-proto #'%%1st-two-arg-eql-method-hack-dcode *gf-proto-two-arg*)
    20782079
    20792080(defun %%one-arg-eql-method-hack-dcode (dt arg)
Note: See TracChangeset for help on using the changeset viewer.