February 2005 - mcclim-devel - mailman3.common-lisp.net

[mcclim-devel] (no subject)
by Robert Strandh 03 Feb '05

03 Feb '05

Hello, Vincent Arkesteijn (<vincent(a)arkesteijn.net>) has agreed to take over the maintenance of the CLIM inspector (Clouseau). For that reason, he will need write privileges to the McCLIM CVS tree. Thanks in advance, -- Robert Strandh --------------------------------------------------------------------- Greenspun's Tenth Rule of Programming: any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. ---------------------------------------------------------------------

2 1

[mcclim-devel] Method browser error: no matching method for GF CLASS-NAME when browsing PRINT-OBJECT
by Paolo Amoroso 03 Feb '05

03 Feb '05

When I provide the name of the PRINT-OBJECT generic function as input to the method browser in Examples/method-browser.lisp, I get the error message with backtrace included below. I use the latest McCLIM CVS sources with CMUCL Snapshot 2005-01 under Slackware Linux 10.0. Paolo ------------------------------------------------------------------------ No matching method for the generic function #<STANDARD-GENERIC-FUNCTION CLASS-NAME (1) {281B2709}>, when called with arguments (#<PCL:EQL-SPECIALIZER {285532FD}>). [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR] Restarts: 0: [CONTINUE] Retry call to :FUNCTION. 1: [ABORT ] Return to application command loop 2: Return to Top-Level. Debug (type H for help) ("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<unused-arg> #<unused-arg> #<STANDARD-GENERIC-FUNCTION CLASS-NAME (1) {281B2709}> (#<PCL:EQL-SPECIALIZER {285532FD}>)) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:pcl/braid.lisp. 0] backtrace 0: ("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<unused-arg> #<unused-arg> #<STANDARD-GENERIC-FUNCTION CLASS-NAME (1) {281B2709}> (#<PCL:EQL-SPECIALIZER {285532FD}>)) 1: ("DEFUN SORTED-GF-SPECIALIZERS" #<STANDARD-CLASS CLIM:OPACITY {283D4B55}> #<PCL:EQL-SPECIALIZER {285532FD}>) 2: (LISP::MERGE-LISTS* #<unavailable-arg> #<unavailable-arg> #<Function "DEFUN SORTED-GF-SPECIALIZERS" {58F75D31}> NIL ...) 3: (LISP::SORT-LIST (#<STANDARD-CLASS CLIM-CLX::CLX-PORT {282FEC85}> #<STANDARD-CLASS CLIM-CLX::FONTSET {285FD915}> #<STANDARD-CLASS CLIM:PANE {28322D0D}> #<STANDARD-CLASS CLIM-INTERNALS::STANDARD-SPACE-REQUIREMENT {28343B4D}> #<STANDARD-CLASS CLIM:COMMAND-TABLE {2838DC75}> ...) #<Function "DEFUN SORTED-GF-SPECIALIZERS" {58F75D31}> NIL) 4: (CLIM-DEMO::SORTED-GF-SPECIALIZERS #<STANDARD-GENERIC-FUNCTION PRINT-OBJECT (47) {281B3739}>) 5: (CLIM-DEMO::COMPUTE-INITIAL-ARG-TYPES #<STANDARD-GENERIC-FUNCTION PRINT-OBJECT (47) {281B3739}>) 6: (CLIM-DEMO::SETUP-NEW-GF #<CLIM-DEMO::METHOD-BROWSER {58428FFD}> #<STANDARD-GENERIC-FUNCTION PRINT-OBJECT (47) {281B3739}>) 7: (CLIM-INTERNALS::INVOKE-CALLBACK #<CLIM:TEXT-FIELD-PANE CLIM-DEMO::GF-NAME-INPUT {58EF4FD5}> CLIM-DEMO::GF-NAME-INPUT-CALLBACK) 8: ((METHOD CLIM:HANDLE-EVENT NIL (CLIM:TEXT-FIELD-PANE CLIM:KEY-PRESS-EVENT)) (#(64 67 22 21 64 ...) . #(#)) #<unused-arg> #<CLIM:TEXT-FIELD-PANE CLIM-DEMO::GF-NAME-INPUT {58EF4FD5}> #<CLIM:KEY-PRESS-EVENT {5892B97D}>) 9: (CLIM-INTERNALS::HANDLE-NON-STREAM-EVENT #<CLIM-INTERNALS::PORT-EVENT-QUEUE {5849386D}>) 10: ((METHOD CLIM:STREAM-INPUT-WAIT NIL (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) (#(18) . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}> (:TIMEOUT NIL :INPUT-WAIT-TEST #<Function CLIM-INTERNALS::INPUT-CONTEXT-WAIT-TEST {1155B1F1}>)) 11: ((METHOD CLIM:STREAM-READ-GESTURE NIL (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) (#(60) . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}> (:TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST ...)) 12: (CLIM:READ-COMMAND #<CLIM:STANDARD-COMMAND-TABLE CLIM-DEMO::METHOD-BROWSER {58EDF55D}> :STREAM #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}> :COMMAND-PARSER ...) 13: (CLIM:READ-COMMAND-USING-KEYSTROKES #<CLIM:STANDARD-COMMAND-TABLE CLIM-DEMO::METHOD-BROWSER {58EDF55D}> NIL :STREAM #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}> ...) 14: (CLIM:READ-COMMAND #<CLIM:STANDARD-COMMAND-TABLE CLIM-DEMO::METHOD-BROWSER {58EDF55D}> :STREAM #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}> :COMMAND-PARSER ...) 15: ((METHOD CLIM:READ-FRAME-COMMAND (:AROUND) (CLIM:APPLICATION-FRAME)) (#(5) . #()) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {11563581}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-DEMO::METHOD-BROWSER {58428FFD}> (:STREAM #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}>)) 16: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<CLIM-DEMO::METHOD-BROWSER {58428FFD}> NIL) 17: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4227)" #<unused-arg> #<unused-arg> #<CLIM-DEMO::METHOD-BROWSER {58428FFD}> NIL) 18: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#(20) . #()) #<unused-arg> #<CLIM-DEMO::METHOD-BROWSER {58428FFD}> #<unused-arg>) 19: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME)) (#(16 15) . #(#)) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {11686B49}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-DEMO::METHOD-BROWSER {58428FFD}> NIL) 20: (INTERACTIVE-EVAL (CLIM-DEMO::RUN-TEST 'CLIM-DEMO::METHOD-BROWSER)) 21: (LISP::%TOP-LEVEL) 22: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0] ------------------------------------------------------------------------ -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

2 1

[mcclim-devel] clim-mop exported symbols
by rpgoldman＠real-time.com 03 Feb '05

03 Feb '05

Is there any canonical list specifying what the exported symbols of the clim-mop package should be? I've been trying to make a defpackage for fix-acl.lisp, but all the existing forms seem to loop over some other package's exported symbols and export them. So I've been making up my list of symbols by waiting until some compilation crashes, and then exporting a new one. This doesn't seem like a happy solution ;-) Wouldn't it be better to have a canonical defpackage somewhere, so that we can all see what we can count on? Failing that, would someone with a working SBCL or CMUCL installation, please send me a list of the exported symbols from their clim-mop definition? R

3 2

[mcclim-devel] Re: [mcclim-cvs] CVS update: mcclim/Apps/Inspector/clouseau.asd mcclim/Apps/Inspector/inspector.lisp mcclim/Apps/Inspector/inspector.asd
by Paolo Amoroso 03 Feb '05

03 Feb '05

tmoore(a)common-lisp.net (Timothy Moore) writes: > Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector [...] > Log Message: > Changed name of inspector system and package to clouseau in order to avoid conflicts with system inspectors. The sample form in Apps/Inspector/INSTALL should accordingly be changed to: (clouseau::inspector (clim:make-application-frame clouseau::inspector :obj 20)) Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

3 3

[mcclim-devel] Inspector patch: view cons cells as list
by Peter Wilson 02 Feb '05

02 Feb '05

Attached is an inspector patch which allows toggling the display of cons cells between the current graph view and a list view. It also makes the brief display of a character print the character.

2 2

[mcclim-devel] Inspector MOP
by Peter Scott 02 Feb '05

02 Feb '05

The Inspector is nice, but its MOP code is a thin layer of abstraction over the MOPs of SBCL and OpenMCL. If you're not running one of those, it gives you a "No MOP" error. Matthieu Villeneuve's patch adds support for CMUCL, but it seems like suplication of the work already done with CLIM-MOP. Here's a patch that deletes the compatibility code and changes everything to use CLIM-MOP. It works for me on SBCL 0.8.16. If it breaks anything, let me know. -Peter

3 2

[mcclim-devel] write privileges to McCLIM for Peter Scott
by Robert Strandh 02 Feb '05

02 Feb '05

Hello, Could you please give write priviles to the McCLIM CVS tree for Peter Scott (who already has a common-lisp.net account with the name pscott) so that he can commit changes to the CLIM inspector? Thanks in advance, -- Robert Strandh --------------------------------------------------------------------- Greenspun's Tenth Rule of Programming: any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. ---------------------------------------------------------------------

1 0

[mcclim-devel] McCLIM inspector: how do I contribute?
by Robert Strandh 02 Feb '05

02 Feb '05

Hello, Peter Scott writes: > I've been working on improving the McCLIM inspector, and I've made > some substantial changes, like improved display of functions, strings, > structures, and generic functions, along with a bunch of added > comments and documentation. How can I contribute my changes to McCLIM? > > Do I get everything in order and then send patches? If so, to whom? Sure, if you can do patches, that would be good. Please send them to mcclim-devel(a)common-lisp.net. Thanks for contributing, -- Robert Strandh --------------------------------------------------------------------- Greenspun's Tenth Rule of Programming: any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. ---------------------------------------------------------------------

4 4

[mcclim-devel] CLIM-CLX::CLX-MEDIUM fell through ETYPECASE expression; error when starting Listener
by Paolo Amoroso 02 Feb '05

02 Feb '05

When I start the CLIM Listener by evaluating: (clim-listener:run-listener) I get the error with backtrace included below. I use McCLIM CVS sources updated a few minutes ago, with CMUCL Snapshot 2005-01 under Slackware Linux 10.0. Paolo ----------------------------------------------------------------------------- #<CLIM-CLX::CLX-MEDIUM {58FE5205}> fell through ETYPECASE expression. Wanted one of (STREAM (MEMBER T) STRING NULL). [Condition of type CONDITIONS::CASE-FAILURE] Restarts: 0: [ABORT ] Return to application command loop 1: [RETURN-TO-LISTENER] Return to listener. 2: Return to Top-Level. Debug (type H for help) (FORMAT #<CLIM-CLX::CLX-MEDIUM {58FE5205}> "~A" "CL-USER") Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/format.lisp. 0] backtrace 0: (FORMAT #<CLIM-CLX::CLX-MEDIUM {58FE5205}> "~A" "CL-USER") 1: ((METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL NIL (CLIM:MEDIUM T T)) (#(2 5 6 3 2 ...) . #(# #)) #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> ...) 2: ((FLET #:CONT0 CLIM-LISTENER::PRINT-LISTENER-PROMPT) #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58EBB45D}>) 3: ((METHOD CLIM:INVOKE-WITH-TEXT-STYLE NIL (CLIM:MEDIUM T T)) #<unused-arg> #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> #<Closure Over Function (FLET #:CONT19 ) {58BAECD1}> ...) 4: ((FLET #:CONT25 ) #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58EBB45D}>) 5: ((METHOD CLIM:INVOKE-WITH-TEXT-STYLE NIL (CLIM:MEDIUM T T)) #<unused-arg> #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> #<Closure Over Function (FLET #:CONT19 ) {58BAEB51}> ...) 6: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<CLIM-LISTENER::LISTENER {580BE0DD}> (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT)) 7: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4720)" #<unused-arg> #<unused-arg> #<CLIM-LISTENER::LISTENER {580BE0DD}> (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT)) 8: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#(22) . #()) #<unused-arg> #<CLIM-LISTENER::LISTENER {580BE0DD}> #<unused-arg>) 9: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM-LISTENER::LISTENER)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {11686409}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-LISTENER::LISTENER {580BE0DD}> (:LISTENER-FUNCALL NIL)) 10: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME)) (#(18 17) . #(#)) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {583301C9}> :PV-CELL NIL :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL :FUNCTION # :PV-CELL # :NEXT-METHOD-CALL NIL :ARG-INFO #) :ARG-INFO (1 . T)) #<CLIM-LISTENER::LISTENER {580BE0DD}> (:LISTENER-FUNCALL NIL)) 11: (INTERACTIVE-EVAL (CLIM-LISTENER:RUN-LISTENER)) 12: (LISP::%TOP-LEVEL) 13: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0] ----------------------------------------------------------------------------- -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

2 2

[mcclim-devel] asdf-install ready mcclim.asd
by Andreas Fuchs 02 Feb '05

02 Feb '05

Hello, I spent the last day hacking the McCLIM system definition. My goals were: * Adding real dependency information for files, to improve the McCLIM user experience (it's notorious for its long compile cycles after a cvs up) * Making it ASDF-INSTALLable, via a system called :MCCLIM that pulls in the :CLIM system and a suitable backend The .asd file at <URL:http://boinkor.net/lisp/mcclim.asd> is the result. (Not attached because common-lisp.net doesn't allow .asd files in attachments.) As you can see, this drops support for all non-ASDF defsystems, and gets us halfway through the first goal - I couldn't load all systems to get dependency information from them (clim-opengl, clim-beagle and scigraph), but the bigger systems like CLIM-CORE and CLIM are fully working. After a change to setf-star.lisp, ASDF now recompiles 6 files instead of 20. (-: The second goal was easier: what I did was move the system definitions for clim-clx, clim-opengl and beagle (now clim-beagle for consistency) into the mcclim.asd file, and frobnicated the CLIM-LOOKS system to depend on the correct backend system in the right circumstances. I'm not absolutely sure if CLIM-LOOKS' behavior is correct for Mac users (it loads beagle). If you have an MCL or OpenMCL installation, so please test. Really, I only tested it on Linux/x86/X11/SBCL. Other combinations were not tested. If you want to find out if it will work for you, install it and run it yourself. To install the system, follow these steps: 1. put the mcclim.asd file into your McCLIM installation directory 2. symlink it to a directory in your ASDF:*CENTRAL-REPOSITORY* (for SBCL users, this is ~/.sbcl/systems) 3. On the lisp REPL, (asdf:oos 'asdf:load-op :mcclim) If anybody does a snapshot of mcclim with this .asd file and puts the ASDF-INSTALL link on http://cliki.net/mcclim, people will also be able to asdf-install McClim. Have fun, -- Andreas Fuchs, <asf(a)boinkor.net>, asf(a)jabber.at, antifuchs--}-<<mixed>>

2 4