From fcf2d0d87db21f0afc00959d3cdcd978d9ed3631 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 6 Aug 1993 15:49:50 +0000 Subject: [PATCH] Declare MEMBER/ASSOC inline in MEMQ/ASSQ to keep them from infinitely recursing via the compiler transform. --- code/list.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/code/list.lisp b/code/list.lisp index 7cbc08eaf..e63d12f57 100644 --- a/code/list.lisp +++ b/code/list.lisp @@ -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)) -- GitLab