On Nov 12, 2006, at 11:37, Mike McDonald wrote:
To: mcclim-devel@common-lisp.net Date: Sun, 12 Nov 2006 16:57:58 +0100 From: "Willem Broekema"
FWIW, I'm on Mac OS X (Intel), and today's CVS code works for me (ACL 8.0). I got rid of the "no protocol specified" error by doing "xhost +".
Damien, if after xhost it still does not work: can you start an X app like xcalc in an Emacs shell? (At least that's what I use to determine if the problem is on the X or Lisp side...)
One of the more recent updates to the Intenl version of OSX turns off TCP connections to the X server. You may need to use the command "defaults" to turn it back on. Then use the 'xhost +' command every time you start X and want to run McCLIM.
I'm running Mac OS on PPC. The 'xhost +' solved the problem with open-display. On to the next problem <grin>. Now I can start the address-book demo but when I type 'help' into the frame with 'Command', I do not see 'help' echoed back to me and, as soon as I hit RET, I get the condition and stack trace below, which I also see if I don't run from SLIME but from an xterm.
attempt to call `#:STREAM59292' which is an undefined function. [Condition of type UNDEFINED-FUNCTION]
Restarts: 0: [TRY-AGAIN] Try calling #:STREAM59292 again. 1: [RETURN-VALUE] Return a value instead of calling #:STREAM59292. 2: [USE-VALUE] Try calling a function other than #:STREAM59292. 3: [STORE-VALUE] Setf the symbol-function of #:STREAM59292 and call it again. 4: [ABORT] Return to application command loop 5: [ABORT-REQUEST] Abort handling SLIME request. 6: [ABORT] Abort entirely from this (lisp) process.
Backtrace: 0: (SWANK::DEBUG-IN-EMACS #<UNDEFINED-FUNCTION @ #x11c793da>) 1: (SWANK:SWANK-DEBUGGER-HOOK #<UNDEFINED-FUNCTION @ #x11c793da> #<Function SWANK-DEBUGGER-HOOK>) 2: (ERROR #<UNDEFINED-FUNCTION @ #x11c793da>) 3: (#:STREAM59292) 4: (CLIM-INTERNALS::COM-HELP%PARTIAL%19 #<STANDARD-COMMAND-TABLE ADDRESS-BOOK @ #x1177565a> #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a> (CLIM-INTERNALS::COM-HELP #:UNSUPPLIED-ARGUMENT-MARKER486)) 5: (COMMAND-LINE-READ-REMAINING-ARGUMENTS-FOR-PARTIAL-COMMAND #<STANDARD-COMMAND-TABLE ADDRESS-BOOK @ #x1177565a> #<CLIM- INTERNALS::GOATEE-INPUT-EDITING-STREAM @ #x11b5abb2> (CLIM- INTERNALS::COM-HELP #:UNSUPPLIED-ARGUMENT-MARKER486) 1) 6: ((METHOD CLIM-INTERNALS::%ACCEPT (CLIM-INTERNALS::| (presentation-type CLIM::COMMAND)| T T TEXTUAL-VIEW)) #<CLIM- INTERNALS::|(presentation-type CLIM::COMMAND)| @ #x10bfc57a> (COMMAND :COMMAND-TABLE #<STANDARD-COMMAND-TABLE ADDRESS-BOOK @ #x1177565a>) #<CLIM-INTERNALS::GOATEE-INPUT-EDITING-STREAM @ #x11b5abb2> #<TEXTUAL-VIEW @ #x10955982>) 7: ((:INTERNAL (:EFFECTIVE-METHOD 4 T T NIL NIL) 0) #<CLIM- INTERNALS::|(presentation-type CLIM::COMMAND)| @ #x10bfc57a> (COMMAND :COMMAND-TABLE #<STANDARD-COMMAND-TABLE ADDRESS-BOOK @ #x1177565a>) #<CLIM-INTERNALS::GOATEE-INPUT-EDITING-STREAM @ #x11b5abb2> #<TEXTUAL-VIEW @ #x10955982> :DEFAULT (CLIM- INTERNALS::COM-NULL-COMMAND) :DEFAULT-TYPE CLIM-INTERNALS::NULL-COMMAND) 8: ((FLET (:INTERNAL ACCEPT-1 0) #:INPUT-CONT34099)) 9: (CLIM-INTERNALS::INVOKE-HANDLE-EMPTY-INPUT #<CLIM- INTERNALS::GOATEE-INPUT-EDITING-STREAM @ #x11b5abb2> #<Closure (FLET (:INTERNAL ACCEPT-1 0) #:INPUT-CONT34099) @ #xbfff8622> #<Closure (FLET (:INTERNAL ACCEPT-1 0) #:HANDLER-CONT34100) @ #xbfff8632>) 10: ((:INTERNAL ACCEPT-1 0) #<CLIM-INTERNALS::GOATEE-INPUT-EDITING- STREAM @ #x11b5abb2>) 11: ((METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (CLIM-STREAM- PANE T T T T)) #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a> #<Closure (:INTERNAL ACCEPT-1 0) @ #x11b5b0a2> #<Closure (:INTERNAL ACCEPT-1 1) @ #x11b5b0ba> "" CLIM-INTERNALS::GOATEE-INPUT-EDITING-STREAM) 12: ((METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a> #<Closure (:INTERNAL ACCEPT-1 0) @ #x11b5b0a2> #<Closure (:INTERNAL ACCEPT-1 1) @ #x11b5b0ba> "" CLIM-INTERNALS::GOATEE-INPUT-EDITING-STREAM) 13: ((METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (EXTENDED-OUTPUT-STREAM T T T T)) #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a> #<Closure (:INTERNAL ACCEPT-1 0) @ #x11b5b0a2> #<Closure (:INTERNAL ACCEPT-1 1) @ #x11b5b0ba> "" CLIM-INTERNALS::GOATEE-INPUT- EDITING-STREAM) 14: ((:INTERNAL (:EFFECTIVE-METHOD 5 NIL NIL T T) 0) #<INTERACTOR- PANE INTERACTOR @ #x11b5ab3a> #<Closure (:INTERNAL ACCEPT-1 0) @ #x11b5b0a2> #<Closure (:INTERNAL ACCEPT-1 1) @ #x11b5b0ba> "" CLIM- INTERNALS::GOATEE-INPUT-EDITING-STREAM) 15: (ACCEPT-1 #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a> (COMMAND :COMMAND-TABLE #<STANDARD-COMMAND-TABLE ADDRESS-BOOK @ #x1177565a>) :DEFAULT (CLIM-INTERNALS::COM-NULL-COMMAND) :DEFAULT- TYPE CLIM-INTERNALS::NULL-COMMAND :PROMPT NIL) 16: ((METHOD STREAM-ACCEPT (STANDARD-EXTENDED-INPUT-STREAM T)) #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a> (COMMAND :COMMAND-TABLE #<STANDARD-COMMAND-TABLE ADDRESS-BOOK @ #x1177565a>)) 17: ((FLET ACCEPT CLIM-INTERNALS::DO-ACCEPT) (:DEFAULT-TYPE CLIM- INTERNALS::NULL-COMMAND :PROMPT NIL :DEFAULT (CLIM-INTERNALS::COM- NULL-COMMAND) :DEFAULT-TYPE CLIM-INTERNALS::NULL-COMMAND)) 18: (ACCEPT (COMMAND :COMMAND-TABLE #<STANDARD-COMMAND-TABLE ADDRESS- BOOK @ #x1177565a>) :STREAM #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a> :PROMPT NIL :DEFAULT (CLIM-INTERNALS::COM-NULL- COMMAND) :DEFAULT-TYPE CLIM-INTERNALS::NULL-COMMAND) 19: (READ-COMMAND #<STANDARD-COMMAND-TABLE ADDRESS-BOOK @ #x1177565a> :STREAM #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a>) 20: (READ-COMMAND-USING-KEYSTROKES #<STANDARD-COMMAND-TABLE ADDRESS- BOOK @ #x1177565a> NIL :STREAM #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a>) 21: (READ-COMMAND #<STANDARD-COMMAND-TABLE ADDRESS-BOOK @ #x1177565a> :STREAM #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a> :USE- KEYSTROKES T) 22: ((METHOD READ-FRAME-COMMAND (APPLICATION-FRAME)) #<ADDRESS-BOOK @ #x11b5ad32> :STREAM #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a>) 23: ((METHOD READ-FRAME-COMMAND :AROUND (APPLICATION-FRAME)) #<ADDRESS-BOOK @ #x11b5ad32> :STREAM #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a>) 24: ((:INTERNAL (:EFFECTIVE-METHOD 1 T T T T) 0) #<ADDRESS-BOOK @ #x11b5ad32> :STREAM #<INTERACTOR-PANE INTERACTOR @ #x11b5ab3a>) 25: ((METHOD DEFAULT-FRAME-TOP-LEVEL (APPLICATION-FRAME)) #<ADDRESS- BOOK @ #x11b5ad32>) 26: ((:INTERNAL (:EFFECTIVE-METHOD 1 T T NIL NIL) 0) #<ADDRESS-BOOK @ #x11b5ad32>) 27: ((:INTERNAL (ACLMOP:CLASS-DEFAULT-INITARGS ADDRESS-BOOK :TOP- LEVEL-LAMBDA) 0) #<ADDRESS-BOOK @ #x11b5ad32>) 28: ((METHOD RUN-FRAME-TOP-LEVEL (APPLICATION-FRAME)) #<ADDRESS-BOOK @ #x11b5ad32>) 29: ((METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)) #<ADDRESS-BOOK @ #x11b5ad32>) 30: ((:INTERNAL (:EFFECTIVE-METHOD 1 T NIL T T) 0) #<ADDRESS-BOOK @ #x11b5ad32> . #<non-lisp object @ #x1>) 31: (EVAL (RUN-FRAME-TOP-LEVEL (MAKE-APPLICATION-FRAME (QUOTE ADDRESS- BOOK)))) 32: (SWANK::EVAL-REGION "(run-frame-top-level (make-application-frame 'address-book)) " T) 33: ((:INTERNAL SWANK:LISTENER-EVAL 0)) 34: ((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x11b5b65a>) 35: (SWANK::CALL-WITH-BUFFER-SYNTAX #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x11b5b65a>) 36: (SWANK:LISTENER-EVAL "(run-frame-top-level (make-application- frame 'address-book)) ") 37: (EVAL (SWANK:LISTENER-EVAL "(run-frame-top-level (make- application-frame 'address-book)) ")) 38: ((:INTERNAL SWANK::EVAL-FOR-EMACS 0)) 39: ((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<Function SWANK-DEBUGGER-HOOK> #<Closure (:INTERNAL SWANK::EVAL-FOR-EMACS 0) @ #x11b5b672>) 40: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(run-frame-top-level (make-application-frame 'address-book)) ") "CLIM-DEMO" 34) 41: (FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(run-frame- top-level (make-application-frame 'address-book)) ") "CLIM-DEMO" 34) 42: (SWANK::READ-FROM-EMACS) 43: ((:INTERNAL SWANK::HANDLE-REQUEST 0)) 44: ((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<Function SWANK-DEBUGGER-HOOK> #<Function (:INTERNAL SWANK::HANDLE-REQUEST 0)>) 45: ((:INTERNAL SWANK::CALL-WITH-CONNECTION 0)) 46: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION @ #x1071458a> #<Closure (:INTERNAL SWANK::CALL-WITH-CONNECTION 0) @ #x11b5b6ba>) 47: (SWANK::MAYBE-CALL-WITH-IO-REDIRECTION #<SWANK::CONNECTION @ #x1071458a> #<Closure (:INTERNAL SWANK::CALL-WITH-CONNECTION 0) @ #x11b5b6ba>) 48: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION @ #x1071458a> #<Function (:INTERNAL SWANK::HANDLE-REQUEST 0)>) 49: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION @ #x1071458a>) 50: ((:INTERNAL SWANK::REPL-LOOP 0)) 51: ((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<Function SWANK-DEBUGGER-HOOK @ #x106a2f12> #<Closure (:INTERNAL SWANK::REPL- LOOP 0) @ #x107155f2>) 52: ((:INTERNAL SWANK::CALL-WITH-CONNECTION 0)) 53: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION @ #x1071458a> #<Closure (:INTERNAL SWANK::CALL-WITH-CONNECTION 0) @ #x10715612>) 54: (SWANK::MAYBE-CALL-WITH-IO-REDIRECTION #<SWANK::CONNECTION @ #x1071458a> #<Closure (:INTERNAL SWANK::CALL-WITH-CONNECTION 0) @ #x10715612>) 55: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION @ #x1071458a> #<Closure (:INTERNAL SWANK::REPL-LOOP 0) @ #x107155f2>) 56: (SWANK::REPL-LOOP #<SWANK::CONNECTION @ #x1071458a>) 57: ((:INTERNAL (:INTERNAL SWANK::SPAWN-REPL-THREAD 0) 0)) 58: (SWANK::CALL-WITH-BINDINGS NIL #<Closure (:INTERNAL (:INTERNAL SWANK::SPAWN-REPL-THREAD 0) 0) @ #x1071564a>) 59: ((:INTERNAL SWANK::SPAWN-REPL-THREAD 0))