Index: src/code/early-extensions.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/early-extensions.lisp,v
retrieving revision 1.62
diff -c -5 -r1.62 early-extensions.lisp
*** src/code/early-extensions.lisp 16 Jul 2003 08:26:00 -0000 1.62
--- src/code/early-extensions.lisp 14 Aug 2003 01:10:25 -0000
***************
*** 286,296 ****
;; inline definitions installable at build-the-cross-compiler time,
;; which was too ambitious for now). Rather than mess with that, we
;; just define ASSQ explicitly in terms of more primitive
;; operations:
(dolist (pair alist)
! (when (eq (car pair) item)
(return pair))))
;;; like (DELETE .. :TEST #'EQ):
;;; Delete all LIST entries EQ to ITEM (destructively modifying
;;; LIST), and return the modified LIST.
--- 286,296 ----
;; inline definitions installable at build-the-cross-compiler time,
;; which was too ambitious for now). Rather than mess with that, we
;; just define ASSQ explicitly in terms of more primitive
;; operations:
(dolist (pair alist)
! (when (and (eq (car pair) item) pair)
(return pair))))
;;; like (DELETE .. :TEST #'EQ):
;;; Delete all LIST entries EQ to ITEM (destructively modifying
;;; LIST), and return the modified LIST.
|