From ef7399cca3729da2283707f97b74dd26dc893e29 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 2 Apr 2004 15:24:02 +0000
Subject: [PATCH] Fix typo.  Need a quote on .call-method.

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

diff --git a/pcl/combin.lisp b/pcl/combin.lisp
index 512916f85..a904e97b5 100644
--- a/pcl/combin.lisp
+++ b/pcl/combin.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.22 2004/03/29 23:39:38 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.23 2004/04/02 15:24:02 rtoy Exp $")
 
 (in-package "PCL")
 
@@ -518,7 +518,7 @@
 		 ((eq (get-method-call-type gf form method-alist-p wrappers-p)
 		      'fast-method-call)
 		  '.fast-call-method.)
-		 (t .call-method.))))
+		 (t '.call-method.))))
     (case (car-safe form)
       ;;
       (call-method
-- 
GitLab