Changeset 7840

Timestamp:

Dec 7, 2007, 1:35:51 AM (17 years ago)

Author:

Gary Byers

Message:

Fix typo in %%1ST-ARG-EQL-METHOD-HACK-DCODE: get property on SYM (1st arg)
ig it's a symbol, not ARGS (lexpr address) Sheesh.

File:

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

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

@@ -1873 +1873 @@
 (defun %%1st-arg-eql-method-hack-dcode (dt args)
   (let* ((sym (if (listp args) (car args)(%lexpr-ref args (%lexpr-count args) 0)))
-         (mf (if (symbolp sym) (get args dt))))
+         (mf (if (symbolp sym) (get sym dt))))
     (if mf
       (if (listp args)