diff --git a/code/list.lisp b/code/list.lisp
index 7cbc08eaf5556dd03d9612e404e5f4f5fd82e7f5..e63d12f576cefdee73d49a4a137019e21ebe4985 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))