From 13792b3f6fb4080de457bbba9849bff5563d5e17 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 9 Mar 1992 09:10:32 +0000
Subject: [PATCH] typo

---
 code/fdefinition.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/code/fdefinition.lisp b/code/fdefinition.lisp
index 6b72bce58..f9aa86ef8 100644
--- a/code/fdefinition.lisp
+++ b/code/fdefinition.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/fdefinition.lisp,v 1.12 1992/03/08 18:30:54 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1.13 1992/03/09 09:10:32 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -171,7 +171,7 @@
       (setf (fdefn-function fdefn)
 	    #'(lambda (&rest argument-list)
 		(declare (special argument-list))
-		(let ((basic-definition (encapsulation-info-function info)))
+		(let ((basic-definition (encapsulation-info-definition info)))
 		  (declare (special basic-definition))
 		  (eval body)))))))
 
@@ -212,7 +212,7 @@
 	   ;; It must be an interior one, so find it.
 	   (loop
 	     (let ((next-info (encapsulation-info
-			       (encapsulation-info-function encap-info))))
+			       (encapsulation-info-definition encap-info))))
 	       (unless next-info
 		 ;; Not there, so don't worry about it.
 		 (return))
@@ -231,7 +231,7 @@
   (let ((fdefn (fdefinition-object name nil)))
     (do ((encap-info (encapsulation-info (fdefn-function fdefn))
 		     (encapsulation-info
-		      (encapsulation-info-function encap-info))))
+		      (encapsulation-info-definition encap-info))))
 	((null encap-info) nil)
       (declare (type (or encapsulation-info null) encap-info))
       (when (eq (encapsulation-info-type encap-info) type)
@@ -248,7 +248,7 @@
     (loop
       (let ((encap-info (encapsulation-info fun)))
 	(if encap-info
-	    (setf fun (encapsulation-info-function encap-info))
+	    (setf fun (encapsulation-info-definition encap-info))
 	    (return fun))))))
 
 (defvar *setf-fdefinition-hook* nil
@@ -271,7 +271,7 @@
 	     (loop
 	       (let ((more-info
 		      (encapsulation-info
-		       (encapsulation-info-function encap-info))))
+		       (encapsulation-info-definition encap-info))))
 		 (if more-info
 		     (setf encap-info more-info)
 		     (return
-- 
GitLab