Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • rtoy's avatar
    0634baa7
    Fix CALL-METHOD used outside of emf from. · 0634baa7
    rtoy authored
    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.
    0634baa7
    History
    Fix CALL-METHOD used outside of emf from.
    rtoy authored
    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.