Changeset 237


Ignore:
Timestamp:
Jan 7, 2004, 3:40:50 PM (21 years ago)
Author:
Gary Byers
Message:

ASSQ is builtin, so just EVAL-REDEF it.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-0/l0-misc.lisp

    r78 r237  
    2525      (return tail))))
    2626
    27 (defun assq (item list)
    28   (dolist (pair list)
    29     (when (and pair (eq item (car pair)))
    30       (return pair))))
     27
    3128
    3229
Note: See TracChangeset for help on using the changeset viewer.