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

Fix typo in error message.

parent e1c22a21
No related branches found
No related tags found
No related merge requests found
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
;;; ************************************************************************* ;;; *************************************************************************
(file-comment (file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.24 2005/06/06 14:32:23 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.25 2005/07/26 13:18:21 rtoy Rel $")
(in-package "PCL") (in-package "PCL")
...@@ -181,7 +181,7 @@ ...@@ -181,7 +181,7 @@
;; ;;
;; Hack: The PROGN is here so that RESTART-CASE doesn't see the ;; Hack: The PROGN is here so that RESTART-CASE doesn't see the
;; ERROR. See MUNGE-RESTART-CASE-EXPRESSION in code:error.lisp. ;; ERROR. See MUNGE-RESTART-CASE-EXPRESSION in code:error.lisp.
`(progn (error "~@<~S used outsize of a effective method form.~@:>" 'call-method))) `(progn (error "~@<~S used outside of a effective method form.~@:>" 'call-method)))
(defmacro call-method-list (&rest calls) (defmacro call-method-list (&rest calls)
`(progn ,@calls)) `(progn ,@calls))
......
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