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

Fix CALL-METHOD used outside of emf from.

Fix from Gerd, cmucl-imp, 2005-06-04 for the following test:

    (define-method-combination mc ()
      ((primary () :required t))
      `(restart-case (call-method ,(first primary))
	 ()))

    (defgeneric foo ()
      (:method-combination mc)
      (:method () nil))

    (foo)

    It turns out this is caused by RESTART-CASE macroexpanding its case
    expression, which it does to see if it starts with ERROR or similar.
    An ANSI thing, if I remember correctly.
parent 6f8b2114
No related branches found
No related tags found
Loading
Loading
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