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

[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

[mcclim-devel] McCLIM and OpenMCL
by rm＠seid-online.de 01 Feb '05

01 Feb '05

Hello list, i'm trying to run mcclim on my Linux/PPC with openmcl but when i load the system i get the following error as soon as i try to start the listener: ? (clim-listener:run-listener) > Error in process listener(2): Undefined function CLIM-INTERNALS::COMPUTE-INHERITED-KEYSTROKES called with arguments (#<STANDARD-COMMAND-TABLE CLIM-LISTENER::LISTENER #x35BBCD3E>) . > While executing: #<STANDARD-METHOD CLIM:READ-FRAME-COMMAND (CLIM-LISTENER::LISTENER)> > Type :GO to continue, :POP to abort. > If continued: Retry applying CLIM-INTERNALS::COMPUTE-INHERITED-KEYSTROKES to (#<STANDARD-COMMAND-TABLE CLIM-LISTENER::LISTENER #x35BBCD3E>). Type :? for other options. 1 > I tried to load mcclim both following the instructions in INSTALL.OPENMCL and using the new mcclim.asd (nice job, btw :). The same code (cvs checkout) seems to work fine (but slow) with recent versions of SBCL. Any hints? TIA Ralf Mattes

2 1

[mcclim-devel] Apps/Inspector
by rm＠seid-online.de 31 Jan '05

31 Jan '05

Hello List, i just did an cvs update to have a look at the new Inspector but unfortunately the code doesn't show up at all :-( Any idea what's happening? TIA Ralf Mattes

3 2

[mcclim-devel] INSPECTOR::CLASS-SLOTS: no MOP error when evaluating sample Inspector form
by Paolo Amoroso 30 Jan '05

30 Jan '05

When I evaluate the sample Inspector form in Apps/Inspector/INSTALL: (inspector::inspector (clim:make-application-frame 'inspector::inspector :obj 20)) An incomplete application frame appears, and I get the error with backtrace included below. I use the latest McCLIM CVS sources with CMUCL Snapshot 2005-01 under Slackware Linux 10.0. Paolo --------------------------------------------------------------------- Error in function INSPECTOR::CLASS-SLOTS: no MOP [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Return to application command loop 1: Return to Top-Level. Debug (type H for help) (INSPECTOR::CLASS-SLOTS #<unused-arg>) Source: ; File: /home/paolo/src/mcclim/Apps/Inspector/inspector.lisp (ERROR "no MOP") 0] backtrace 0: (INSPECTOR::CLASS-SLOTS #<unused-arg>) 1: ((LABELS #:.CONT.29 (FLET #:CONTINUATION32 #)) #<unused-arg>) 2: ((FLET #:CONTINUATION15 (FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE)) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 3: ((METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<unused-arg> #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION15 #) {589B8FB1}> ...) 4: ((FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<CLIM:STANDARD-TABLE-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 {589B8E45}>) 5: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE) {589B8761}> ...) 6: ((FLET #:CONTINUATION32 (FLET #:CONTINUATION37 #)) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<unused-arg>) 7: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION32 #) {589B7FD1}> ...) 8: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION37 #) {58381DE1}> ...) 9: ((FLET #:CONTINUATION15 (FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE)) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 10: ((METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<unused-arg> #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION15 #) {58380F71}> ...) 11: ((FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<CLIM:STANDARD-TABLE-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 {5838032D}>) 12: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE) {5837F961}> ...) 13: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION149 ) {58295A01}> ...) 14: ((METHOD INSPECTOR::INSPECT-OBJECT NIL (STANDARD-OBJECT T)) (#() . #(#)) #<unused-arg> #<INSPECTOR::INSPECTOR {589A0D6D}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 15: ((METHOD INSPECTOR::INSPECT-OBJECT (:AROUND) (T T)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {58C640B9}> :PV-CELL (# . #) :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL :FUNCTION # :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO #) :ARG-INFO (2)) #<INSPECTOR::INSPECTOR {589A0D6D}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 16: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G6398 G6399 G6400)" #<unused-arg> #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> ...) 17: ((METHOD CLIM:REDISPLAY-FRAME-PANE (:AROUND) (CLIM:APPLICATION-FRAME T)) (#(21 21) . #()) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Closure Over Function "LAMBDA (.KEYARGS-START. .VALID-KEYS. G6398 G6399 G6400)" {5827E9B9}> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) #<INSPECTOR::INSPECTOR {58A0AD4D}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> ...) 18: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 19: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM-INTERNALS::BORDER-PANE "(Unnamed Pane)" {58CAEC25}>) 20: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {58CAEB65}>) 21: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM-EXTENSIONS:VIEWPORT-PANE "(Unnamed Pane)" {58CAEC15}>) 22: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:SCROLLER-PANE "(Unnamed Pane)" {58CAEBE5}>) 23: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {58CAEBA5}>) 24: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {58C7CB6D}>) 25: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {581106D5}>) 26: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}> NIL) 27: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4920)" #<unused-arg> #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}> NIL) 28: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#(20) . #()) #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}> #<unused-arg>) 29: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME)) (#(16 15) . #(#)) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {11682759}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<INSPECTOR::INSPECTOR {58A0AD4D}> NIL) 30: (INSPECTOR::INSPECTOR #<INSPECTOR::INSPECTOR {589A0D6D}>) 31: (INTERACTIVE-EVAL (INSPECTOR::INSPECTOR (CLIM:MAKE-APPLICATION-FRAME 'INSPECTOR::INSPECTOR :OBJ 20))) 32: (LISP::%TOP-LEVEL) 33: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0] --------------------------------------------------------------------- -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

3 2

[mcclim-devel] Adding the inspector application to McCLIM
by Robert Strandh 29 Jan '05

29 Jan '05

Hello, I am thinking of adding the rudimentary inspector application that I started writing as an application in the McCLIM tree. This would allow for other people to work on it without my having to apply patches, and of course it would be in a CVS tree. Any objections? -- 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] Customizing interactor panes
by Peter Scott 27 Jan '05

27 Jan '05

I'm writing a GUI for a chemistry program with McCLIM. My problem is that I want the user to be able to type commands into the interactor pane in a special syntax, which I have written a parser for. For example, typing "Krypton" should call the Inspect Element command on the element called "Krypton". Typing "12 g C H4" should display how many moles of methane there are in 12 g. There's more like that, but I have the code to handle it all written---except for the code that hooks it into an interactor pane. There's a way of getting an interactor pane to differentiate between commands and s-expressions, for use in a listener, so I think that what I want is possible. Can anybody tell me how? -Peter

2 1

[mcclim-devel] patch to fix-acl.lisp
by Robert P. Goldman 27 Jan '05

27 Jan '05

I am not at all sure that this is The Right Thing, but I found that the fix-acl code that makes the clim-mop package didn't work for me, because it assumed that the right thing was to export all the external symbols from the CLOS package from CLIM-MOP. But some of the symbols we want seem to actually be in the COMMON-LISP package, instead. Anyway, here's a proposed fix. Please let me know if I've committed some solecism or other: 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 27 Jan 2005 21:56:35 -0000 @@ -5,15 +5,49 @@ ;;; 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 + #:validate-superclass + #:class-finalized-p + #:finalize-inheritance + #:class-prototype + #:class-name + #:class-precedence-list + #:class-direct-superclasses + #:class-direct-subclasses + #:class-direct-slots + "CLASS-SLOTS" + "SLOT-DEFINITION-NAME" + "SLOT-DEFINITION-TYPE" + "SLOT-DEFINITION-INITARGS" + "SLOT-DEFINITION-INITFUNCTION" + "SLOT-DEFINITION-INITFORM" + "SLOT-DEFINITION-READERS" + "SLOT-DEFINITION-WRITERS" + "SLOT-DEFINITION-ALLOCATION" + #:ensure-class + #:funcallable-standard-class + #:method-specializers + #:method-qualifiers + #:method-lambda-list + #:method-generic-function + #:generic-function-methods + #:generic-function-name + "GENERIC-FUNCTION-LAMBDA-LIST" + "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" + #:eql-specializer + #:eql-specializer-object + #:intern-eql-specializer + #:compute-applicable-methods-using-classes)) -(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)

1 0