Skip to content

Instantly share code, notes, and snippets.

@jmercouris
Created November 9, 2017 13:47
Show Gist options
  • Save jmercouris/31151d58e724ecea7e1f12421c405863 to your computer and use it in GitHub Desktop.
Save jmercouris/31151d58e724ecea7e1f12421c405863 to your computer and use it in GitHub Desktop.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Code that Causes Break
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(objc:defmethod (#/sendEvent: :void) ((app ns:ns-application) event)
(print "event!"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Error Message Recieved
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
The method -[NSApplication sendEvent:] is already declared to have type signature (:VOID
:ID); the new declaration (:VOID
:ID) is incompatible.
[Condition of type SIMPLE-ERROR]
Restarts:
0: [CONTINUE] Redefine existing method to have new type signature.
1: [RETRY] Retry SLIME interactive evaluation request.
2: [*ABORT] Return to SLIME's top level.
3: [ABORT-BREAK] Reset this thread
4: [ABORT] Kill this thread
Backtrace:
0: (CCL::RESOLVE-EXISTING-OBJC-METHOD-INFO #S(CCL::OBJC-MESSAGE-INFO :MESSAGE-NAME "sendEvent:" ..)) "NSApplication" NIL :VOID (:ID))
1: (CCL::%DECLARE-OBJC-METHOD "sendEvent:" "NSApplication" NIL :VOID (:ID))
2: (CCL::CALL-CHECK-REGS CCL::%DECLARE-OBJC-METHOD "sendEvent:" "NSApplication" NIL :VOID (:ID))
3: ((:INTERNAL CCL::PROGN-IN-ENV CCL::CHEAP-EVAL-IN-ENVIRONMENT) ((CCL::%DECLARE-OBJC-METHOD '"sendEvent:" '"NSApplication" NIL ...) ..)))) NIL #<CCL::LEXICAL-ENVIRONMENT #x3020042CAD0D>)
4: (CCL::CHEAP-EVAL (OBJC:DEFMETHOD (NEXTSTEP-FUNCTIONS:|sendEvent:| :VOID) ((APP NS:NS-APPLICATION) EVENT) (PRINT "event!")))
5: ((:INTERNAL SWANK:INTERACTIVE-EVAL))
--more--
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment