From 2951ace22c0a70f594054ffdcca5339c6521c467 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 26 May 2005 19:09:15 +0000
Subject: [PATCH] Fix typo.  (From Gerd.)

---
 code/profile.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/profile.lisp b/code/profile.lisp
index df8ab2c05..dc1ac2b08 100644
--- a/code/profile.lisp
+++ b/code/profile.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/profile.lisp,v 1.40 2005/05/26 13:40:35 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.41 2005/05/26 19:09:15 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -427,7 +427,7 @@ this, the functions are listed.  If NIL, then always list the functions.")
 	  (unless names (return))
 	  (let ((name (pop names)))
 	    (cond ((eq name :callers)
-		   (setq callers (not (null (pop names))))
+		   (setq callers (not (null (pop names)))))
 		  ;;
 		  ;; Method functions.
 		  #+pcl
-- 
GitLab