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