Changeset 7840


Ignore:
Timestamp:
Dec 7, 2007, 9:35:51 AM (13 years ago)
Author:
gb
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:
1 edited

Legend:

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

    r7838 r7840  
    18731873(defun %%1st-arg-eql-method-hack-dcode (dt args)
    18741874  (let* ((sym (if (listp args) (car args)(%lexpr-ref args (%lexpr-count args) 0)))
    1875          (mf (if (symbolp sym) (get args dt))))
     1875         (mf (if (symbolp sym) (get sym dt))))
    18761876    (if mf
    18771877      (if (listp args)
Note: See TracChangeset for help on using the changeset viewer.