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

[mcclim-devel] [Christophe Rhodes] [Sbcl-devel] PCL depessimization
by Christophe Rhodes 04 Feb '05

04 Feb '05

Hi, Tim Moore suggested that this might be of interest -- I'd certainly be interested in hearing reports from anyone who tries mcclim with sbcl and the attached patch. Thanks, Christophe

2 1

[mcclim-devel] patch for fix-acl.lisp
by Robert P. Goldman 04 Feb '05

04 Feb '05

Will someone with privileges please apply the attached patch (I also attach the full lisp file, should that be easier) to Lisp-Dep/fix-acl.lisp? AFAICT, this should fix problems with defining the CLIM-MOP package for Allegro Common Lisp. I don't see any downside to applying this patch, since some canvassing reveals that I'm the only person who will admit to using McCLIM with Allegro CL, so I will only be hurting myself if there's anything wrong! And I *might* be helping some future ACL user. Index: fix-acl.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-acl.lisp,v retrieving revision 1.9 diff -u -F^(def -r1.9 fix-acl.lisp --- fix-acl.lisp 21 Mar 2003 15:15:09 -0000 1.9 +++ fix-acl.lisp 3 Feb 2005 15:33:30 -0000 @@ -5,15 +5,117 @@ ;;; Needed to keep ACL from issuing warnings about toplevel (shadow ...) forms (setq comp:*cltl1-compile-file-toplevel-compatibility-p* nil) -(require :loop) +(eval-when (:compile-toplevel :load-toplevel :execute) + (require :loop) + (require :mop)) (defpackage :clim-mop - (:use :clos)) - + (:use :clos :common-lisp) + (:export "ACCESSOR-METHOD-SLOT-DEFINITION" + "ADD-DEPENDENT" + "ADD-DIRECT-METHOD" + "ADD-DIRECT-SUBCLASS" + "ADD-METHOD" + "ALLOCATE-INSTANCE" + "BUILT-IN-CLASS" + "CLASS" + "CLASS-DEFAULT-INITARGS" + "CLASS-DIRECT-DEFAULT-INITARGS" + "CLASS-DIRECT-SLOTS" + "CLASS-DIRECT-SUBCLASSES" + "CLASS-DIRECT-SUPERCLASSES" + "CLASS-FINALIZED-P" + "CLASS-NAME" + "CLASS-PRECEDENCE-LIST" + "CLASS-PROTOTYPE" + "CLASS-SLOTS" + "COMPUTE-APPLICABLE-METHODS" + "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" + "COMPUTE-CLASS-PRECEDENCE-LIST" + "COMPUTE-DEFAULT-INITARGS" + "COMPUTE-DISCRIMINATING-FUNCTION" + "COMPUTE-EFFECTIVE-METHOD" + "COMPUTE-EFFECTIVE-SLOT-DEFINITION" + "COMPUTE-SLOTS" + "DIRECT-SLOT-DEFINITION" + "DIRECT-SLOT-DEFINITION-CLASS" + "EFFECTIVE-SLOT-DEFINITION" + "EFFECTIVE-SLOT-DEFINITION-CLASS" + "ENSURE-CLASS" + "ENSURE-CLASS-USING-CLASS" + "ENSURE-GENERIC-FUNCTION" + "ENSURE-GENERIC-FUNCTION-USING-CLASS" + "EQL-SPECIALIZER" + "EQL-SPECIALIZER-OBJECT" + "EXTRACT-LAMBDA-LIST" + "EXTRACT-SPECIALIZER-NAMES" + "FINALIZE-INHERITANCE" + "FIND-METHOD-COMBINATION" + "FORWARD-REFERENCED-CLASS" + "FUNCALLABLE-STANDARD-CLASS" + "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" + "FUNCALLABLE-STANDARD-OBJECT" + "FUNCTION" + "GENERIC-FUNCTION" + "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" + "GENERIC-FUNCTION-DECLARATIONS" + "GENERIC-FUNCTION-LAMBDA-LIST" + "GENERIC-FUNCTION-METHOD-CLASS" + "GENERIC-FUNCTION-METHOD-COMBINATION" + "GENERIC-FUNCTION-METHODS" + "GENERIC-FUNCTION-NAME" + "INTERN-EQL-SPECIALIZER" + "MAKE-INSTANCE" + "MAKE-METHOD-LAMBDA" + "MAP-DEPENDENTS" + "METAOBJECT" + "METHOD" + "METHOD-COMBINATION" + "METHOD-FUNCTION" + "METHOD-GENERIC-FUNCTION" + "METHOD-LAMBDA-LIST" + "METHOD-QUALIFIERS" + "METHOD-SPECIALIZERS" + "READER-METHOD-CLASS" + "REMOVE-DEPENDENT" + "REMOVE-DIRECT-METHOD" + "REMOVE-DIRECT-SUBCLASS" + "REMOVE-METHOD" + "SET-FUNCALLABLE-INSTANCE-FUNCTION" + "SLOT-BOUNDP-USING-CLASS" + "SLOT-DEFINITION" + "SLOT-DEFINITION-ALLOCATION" + "SLOT-DEFINITION-INITARGS" + "SLOT-DEFINITION-INITFORM" + "SLOT-DEFINITION-INITFUNCTION" + "SLOT-DEFINITION-LOCATION" + "SLOT-DEFINITION-NAME" + "SLOT-DEFINITION-READERS" + "SLOT-DEFINITION-TYPE" + "SLOT-DEFINITION-WRITERS" + "SLOT-MAKUNBOUND-USING-CLASS" + "SLOT-VALUE-USING-CLASS" + "SPECIALIZER" + "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" + "SPECIALIZER-DIRECT-METHODS" + "STANDARD-ACCESSOR-METHOD" + "STANDARD-CLASS" + "STANDARD-DIRECT-SLOT-DEFINITION" + "STANDARD-EFFECTIVE-SLOT-DEFINITION" + "STANDARD-GENERIC-FUNCTION" + "STANDARD-INSTANCE-ACCESS" + "STANDARD-METHOD" + "STANDARD-OBJECT" + "STANDARD-READER-METHOD" + "STANDARD-SLOT-DEFINITION" + "STANDARD-WRITER-METHOD" + "UPDATE-DEPENDENT" + "VALIDATE-SUPERCLASS" + "WRITER-METHOD-CLASS")) -(eval-when (:compile-toplevel :load-toplevel :execute) - (do-external-symbols (sym :clos) - (export sym :clim-mop))) +;;;(eval-when (:compile-toplevel :load-toplevel :execute) +;;; (do-external-symbols (sym :clos) +;;; (export sym :clim-mop))) (eval-when (:compile-toplevel :load-toplevel :execute) (export '(clim-lisp-patch::defclass) ;;; -*- Mode: Lisp; Package: User -*- (in-package :common-lisp-user) ;;; Needed to keep ACL from issuing warnings about toplevel (shadow ...) forms (setq comp:*cltl1-compile-file-toplevel-compatibility-p* nil) (eval-when (:compile-toplevel :load-toplevel :execute) (require :loop) (require :mop)) (defpackage :clim-mop (:use :clos :common-lisp) (:export "ACCESSOR-METHOD-SLOT-DEFINITION" "ADD-DEPENDENT" "ADD-DIRECT-METHOD" "ADD-DIRECT-SUBCLASS" "ADD-METHOD" "ALLOCATE-INSTANCE" "BUILT-IN-CLASS" "CLASS" "CLASS-DEFAULT-INITARGS" "CLASS-DIRECT-DEFAULT-INITARGS" "CLASS-DIRECT-SLOTS" "CLASS-DIRECT-SUBCLASSES" "CLASS-DIRECT-SUPERCLASSES" "CLASS-FINALIZED-P" "CLASS-NAME" "CLASS-PRECEDENCE-LIST" "CLASS-PROTOTYPE" "CLASS-SLOTS" "COMPUTE-APPLICABLE-METHODS" "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" "COMPUTE-CLASS-PRECEDENCE-LIST" "COMPUTE-DEFAULT-INITARGS" "COMPUTE-DISCRIMINATING-FUNCTION" "COMPUTE-EFFECTIVE-METHOD" "COMPUTE-EFFECTIVE-SLOT-DEFINITION" "COMPUTE-SLOTS" "DIRECT-SLOT-DEFINITION" "DIRECT-SLOT-DEFINITION-CLASS" "EFFECTIVE-SLOT-DEFINITION" "EFFECTIVE-SLOT-DEFINITION-CLASS" "ENSURE-CLASS" "ENSURE-CLASS-USING-CLASS" "ENSURE-GENERIC-FUNCTION" "ENSURE-GENERIC-FUNCTION-USING-CLASS" "EQL-SPECIALIZER" "EQL-SPECIALIZER-OBJECT" "EXTRACT-LAMBDA-LIST" "EXTRACT-SPECIALIZER-NAMES" "FINALIZE-INHERITANCE" "FIND-METHOD-COMBINATION" "FORWARD-REFERENCED-CLASS" "FUNCALLABLE-STANDARD-CLASS" "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" "FUNCALLABLE-STANDARD-OBJECT" "FUNCTION" "GENERIC-FUNCTION" "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" "GENERIC-FUNCTION-DECLARATIONS" "GENERIC-FUNCTION-LAMBDA-LIST" "GENERIC-FUNCTION-METHOD-CLASS" "GENERIC-FUNCTION-METHOD-COMBINATION" "GENERIC-FUNCTION-METHODS" "GENERIC-FUNCTION-NAME" "INTERN-EQL-SPECIALIZER" "MAKE-INSTANCE" "MAKE-METHOD-LAMBDA" "MAP-DEPENDENTS" "METAOBJECT" "METHOD" "METHOD-COMBINATION" "METHOD-FUNCTION" "METHOD-GENERIC-FUNCTION" "METHOD-LAMBDA-LIST" "METHOD-QUALIFIERS" "METHOD-SPECIALIZERS" "READER-METHOD-CLASS" "REMOVE-DEPENDENT" "REMOVE-DIRECT-METHOD" "REMOVE-DIRECT-SUBCLASS" "REMOVE-METHOD" "SET-FUNCALLABLE-INSTANCE-FUNCTION" "SLOT-BOUNDP-USING-CLASS" "SLOT-DEFINITION" "SLOT-DEFINITION-ALLOCATION" "SLOT-DEFINITION-INITARGS" "SLOT-DEFINITION-INITFORM" "SLOT-DEFINITION-INITFUNCTION" "SLOT-DEFINITION-LOCATION" "SLOT-DEFINITION-NAME" "SLOT-DEFINITION-READERS" "SLOT-DEFINITION-TYPE" "SLOT-DEFINITION-WRITERS" "SLOT-MAKUNBOUND-USING-CLASS" "SLOT-VALUE-USING-CLASS" "SPECIALIZER" "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" "SPECIALIZER-DIRECT-METHODS" "STANDARD-ACCESSOR-METHOD" "STANDARD-CLASS" "STANDARD-DIRECT-SLOT-DEFINITION" "STANDARD-EFFECTIVE-SLOT-DEFINITION" "STANDARD-GENERIC-FUNCTION" "STANDARD-INSTANCE-ACCESS" "STANDARD-METHOD" "STANDARD-OBJECT" "STANDARD-READER-METHOD" "STANDARD-SLOT-DEFINITION" "STANDARD-WRITER-METHOD" "UPDATE-DEPENDENT" "VALIDATE-SUPERCLASS" "WRITER-METHOD-CLASS")) ;;;(eval-when (:compile-toplevel :load-toplevel :execute) ;;; (do-external-symbols (sym :clos) ;;; (export sym :clim-mop))) (eval-when (:compile-toplevel :load-toplevel :execute) (export '(clim-lisp-patch::defclass) :clim-lisp-patch)) (defvar clim-lisp-patch::*compile-time-clos-names* (make-hash-table)) (defun clim-lisp-patch::compile-time-clos-class-p (name) (gethash name clim-lisp-patch::*compile-time-clos-names* nil)) (defmacro clim-lisp-patch:defclass (name &rest args) `(progn (eval-when (:compile-toplevel) (setf (gethash ',name clim-lisp-patch::*compile-time-clos-names*) t)) (cl:defclass ,name ,@args))) #+nil (progn (eval-when (:compile-toplevel :load-toplevel :execute) (defvar clim-lisp-patch::*inline-functions* nil)) (defmacro clim-lisp-patch:declaim (&rest args) (dolist (arg args) (cond ((and (consp arg) (eq (car arg) 'inline)) (dolist (k (cdr arg)) (pushnew k clim-lisp-patch::*inline-functions*))))) `(declaim ,@args) ) (defmacro clim-lisp-patch:defun (fun args &body body) (cond ((member fun clim-lisp-patch::*inline-functions*) (cond ((and (consp fun) (eq (car fun) 'setf)) (let ((fnam (intern (concatenate 'string "(SETF " (symbol-name (cadr fun)) ")") (symbol-package (cadr fun))))) `(progn (defsetf ,(cadr fun) (&rest ap) (new-value) (list* ',fnam new-value ap)) (defun ,fnam ,args .,body) (define-compiler-macro ,fnam (&rest .args.) (cons '(lambda ,args .,body) .args.))))) (t `(progn (defun ,fun ,args .,body) (define-compiler-macro ,fun (&rest .args.) (cons '(lambda ,args .,body) .args.)))))) (t `(defun ,fun ,args ,@body)))) )

2 1

[mcclim-devel] Patch fixing the PNM image writing bug
by Milan Zamazal 03 Feb '05

03 Feb '05

The following patch seems to fix the PNM image writing bug present when using Unicode enabled SBCL:

1 0

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

03 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] (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