Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -957,10 +957,12 @@
(defun memq (item list) (defun memq (item list)
"Returns tail of list beginning with first element eq to item" "Returns tail of list beginning with first element eq to item"
(declare (inline member))
(member item list :test #'eq)) (member item list :test #'eq))
(defun assq (item alist) (defun assq (item alist)
"Return the first pair of alist where item EQ the key of pair" "Return the first pair of alist where item EQ the key of pair"
(declare (inline assoc))
(assoc item alist :test #'eq)) (assoc item alist :test #'eq))
(defun delq (item list &optional (n most-positive-fixnum)) (defun delq (item list &optional (n most-positive-fixnum))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment