Changeset 9669 for branches

Timestamp:

Jun 3, 2008, 8:44:57 PM (16 years ago)

Author:

gz

Message:

Register eql method hack dcode protos

File:

• branches/working-0711/ccl/level-1/l1-clos.lisp (modified) (2 diffs)

branches/working-0711/ccl/level-1/l1-clos.lisp

@@ -2069 +2069 @@
       ;;; Let %%1st-arg-dcode deal with it.
       (%%1st-arg-dcode dt args))))
+(register-dcode-proto #'%%1st-arg-eql-method-hack-dcode *gf-proto*)
 
 (defun %%1st-two-arg-eql-method-hack-dcode (dt arg1 arg2)
@@ -2075 +2076 @@
       (funcall mf arg1 arg2)
       (%%1st-two-arg-dcode dt arg1 arg2))))
-(register-dcode-proto #'reader-variable-location-dcode *gf-proto-two-arg*)
+(register-dcode-proto #'%%1st-two-arg-eql-method-hack-dcode *gf-proto-two-arg*)
 
 (defun %%one-arg-eql-method-hack-dcode (dt arg)