Commit fcf2d0d8 authored by ram's avatar ram
Browse files

Declare MEMBER/ASSOC inline in MEMQ/ASSQ to keep them from infinitely recursing

via the compiler transform.
parent bb7d14ed
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/list.lisp,v 1.14 1993/08/06 05:08:07 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/list.lisp,v 1.15 1993/08/06 15:49:50 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -957,10 +957,12 @@
(defun memq (item list)
"Returns tail of list beginning with first element eq to item"
(declare (inline member))
(member item list :test #'eq))
(defun assq (item alist)
"Return the first pair of alist where item EQ the key of pair"
(declare (inline assoc))
(assoc item alist :test #'eq))
(defun delq (item list &optional (n most-positive-fixnum))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment