From ab872f8582f5c9c24b52b7dfad43f36577add5e4 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Wed, 16 Jul 2003 15:33:13 +0000
Subject: [PATCH] 	* src/code/defmacro.lisp (dotted-list-length): Declaim
 inline, 	so that we don't need its fdefn in cold init.

---
 code/defmacro.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/defmacro.lisp b/code/defmacro.lisp
index 981fbe2bb..6cf3a91dd 100644
--- a/code/defmacro.lisp
+++ b/code/defmacro.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defmacro.lisp,v 1.31 2003/07/15 17:52:11 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defmacro.lisp,v 1.32 2003/07/16 15:33:13 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -84,6 +84,7 @@
 		       (new)))
       (new (car tail)))))
 
+(declaim (inline dotted-list-length))
 (defun dotted-list-length (list)
   (loop for tail on list until (atom tail) count t))
 
-- 
GitLab