Skip to content
Snippets Groups Projects
Commit ef7399cc authored by rtoy's avatar rtoy
Browse files

Fix typo. Need a quote on .call-method.

parent 8daf6535
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment