- mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

[mcclim-cvs] CVS update: Directory change: mcclim/Backends/beagle/native
by drose＠common-lisp.net 16 May '05

16 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/native In directory common-lisp.net:/tmp/cvs-serv11922/native Log Message: Directory /project/mcclim/cvsroot/mcclim/Backends/beagle/native added to the repository Date: Mon May 16 23:54:31 2005 Author: drose New directory mcclim/Backends/beagle/native added

1 0

[mcclim-cvs] CVS update: Directory change: mcclim/Backends/beagle/input
by drose＠common-lisp.net 16 May '05

16 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/input In directory common-lisp.net:/tmp/cvs-serv11898/input Log Message: Directory /project/mcclim/cvsroot/mcclim/Backends/beagle/input added to the repository Date: Mon May 16 23:53:00 2005 Author: drose New directory mcclim/Backends/beagle/input added

1 0

[mcclim-cvs] CVS update: Directory change: mcclim/Backends/beagle/glimpse
by drose＠common-lisp.net 16 May '05

16 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/glimpse In directory common-lisp.net:/tmp/cvs-serv11855/glimpse Log Message: Directory /project/mcclim/cvsroot/mcclim/Backends/beagle/glimpse added to the repository Date: Mon May 16 23:51:19 2005 Author: drose New directory mcclim/Backends/beagle/glimpse added

1 0

[mcclim-cvs] CVS update: mcclim/graph-formatting.lisp
by ahefner＠common-lisp.net 13 May '05

13 May '05

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv5889 Modified Files: graph-formatting.lisp Log Message: Applied Robert P. Goldman's graph formatting patch. Date: Fri May 13 05:00:25 2005 Author: ahefner Index: mcclim/graph-formatting.lisp diff -u mcclim/graph-formatting.lisp:1.14 mcclim/graph-formatting.lisp:1.15 --- mcclim/graph-formatting.lisp:1.14 Sat Apr 23 22:02:01 2005 +++ mcclim/graph-formatting.lisp Fri May 13 05:00:25 2005 @@ -3,7 +3,7 @@ ;;; Title: Graph Formatting ;;; Created: 2002-08-13 ;;; License: LGPL (See file COPYING for details). -;;; $Id: graph-formatting.lisp,v 1.14 2005/04/23 20:02:01 ahefner Exp $ +;;; $Id: graph-formatting.lisp,v 1.15 2005/05/13 03:00:25 ahefner Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 2002 by Gilbert Baumann @@ -312,7 +312,7 @@ (walk (node depth) (unless (graph-node-minor-size node) (when (>= depth (length generation-sizes)) - (setf generation-sizes (adjust-array generation-sizes (ceiling (* depth 1.2))))) + (setf generation-sizes (adjust-array generation-sizes (ceiling (* depth 1.2)) :initial-element 0))) (setf (aref generation-sizes depth) (max (aref generation-sizes depth) (node-major-dimension node))) (setf (graph-node-minor-size node) 0)

1 0

[mcclim-cvs] CVS update: mcclim/Apps/Listener/TODO mcclim/Apps/Listener/README
by ahefner＠common-lisp.net 12 May '05

12 May '05

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv25966 Modified Files: TODO README Log Message: Update README with correct installation instructions (system definition is now defined elsewhere). Random changes to README and TODO. Date: Thu May 12 03:37:21 2005 Author: ahefner Index: mcclim/Apps/Listener/TODO diff -u mcclim/Apps/Listener/TODO:1.1 mcclim/Apps/Listener/TODO:1.2 --- mcclim/Apps/Listener/TODO:1.1 Tue Nov 11 07:18:50 2003 +++ mcclim/Apps/Listener/TODO Thu May 12 03:37:20 2005 @@ -3,7 +3,6 @@ for its intended purpose: McCLIM TODO: - - Editor history - Implement more of the emacs editing keys - Completion of pathnames and symbols - Subform accepting in places other than OpenMCL Index: mcclim/Apps/Listener/README diff -u mcclim/Apps/Listener/README:1.4 mcclim/Apps/Listener/README:1.5 --- mcclim/Apps/Listener/README:1.4 Mon Oct 18 08:30:37 2004 +++ mcclim/Apps/Listener/README Thu May 12 03:37:20 2005 @@ -5,7 +5,7 @@ -------- The McCLIM Listener provides an interactive toplevel with full access to the -graphical capabilities of CLIM, and a set of built-in commands intended to be +graphical capabilities of CLIM and a set of built-in commands intended to be useful for lisp development and experimentation. Present features include: - Reading/evaluation of lisp expressions @@ -19,17 +19,15 @@ Installation ------------ -The Listener uses ASDF for system definition. You must have ASDF loaded to build -the listener (or else compile the files manually), but need not have compiled -McCLIM using it. See http://www.cliki.net/asdf for information on ASDF. +The clim-listener system is defined both by McCLIM's central system.lisp and +the ASDF-ized version in mcclim.asd. It can be loaded in the same manner as +the rest of McCLIM. -Provided you have McCLIM and ASDF loaded into your lisp, compiling the listener -is straightforward. Assuming you are in the McCLIM directory: +For ASDF users, the following should work: - * (load "Apps/Listener/clim-listener.asd") * (asdf:operate 'asdf:load-op :clim-listener) -To run the listener: +Once loaded, you can run the listener using: * (clim-listener:run-listener) If you have a multithreaded lisp, you can start the listener in a separate @@ -40,20 +38,18 @@ Compatibility ------------- -The Listener is developed primarily on CMUCL 18e, and tested periodically on SBCL -and possibly OpenMCL. On SBCL, the SB-POSIX package is used for filesystem -access, so you will need a fairly recent version of SBCL (minimum 0.8.2.44). - -Due to variation in how implementations treat pathnames as well as nonstandard -things like access to the MOP and the need to run programs, examine environment -variables, etc, a little work is required to get everything running smoothly on -a new CL. Most of this should be done for LispWorks. Allegro CL is untested and -will need some hacking. +The Listener is developed using CMUCL 18e and recent versions of SBCL. It is +known to work well on these platforms. It has also been reported to work on +OpenMCL, Lispworks, and clisp. It has not been tested on ACL and will +require a small amount of work due to the number of implementation-specific +features used (MOP, pathnames, run-program, environment variables, etc). + + Usage ----- -After starting the listener, a fairly normal lisp prompt will be displayed, with +After starting the listener, a typical lisp prompt will be displayed, with the package name preceding the prompt. You may type lisp forms or commands to this prompt. The listener will treat alphabetical characters as beginning a command name, and most other characters as the beginning of a lisp form. If for @@ -132,13 +128,14 @@ the DIRECTORY function of various CL environments) My apologies to anyone doing something more useful with this macro character -which I have stepped on. +if I have clobbered your readtable. + Calling Commands from Lisp -------------------------- -Calling CLIM commands from lisp is straightforward. By convention, the "pretty" +Calling CLIM commands from lisp is straightforward. By convention, the pretty names used at the interactor map to a function name which implements the command body by upcasing the name, replacing spaces with hyphens, and prepending "COM-" (e.g., Show Directory becomes COM-SHOW-DIRECTORY).

1 0

[mcclim-cvs] CVS update: mcclim/Apps/Listener/clim-listener.asd
by ahefner＠common-lisp.net 12 May '05

12 May '05

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv25036 Removed Files: clim-listener.asd Log Message: Removing deprecated file. Date: Thu May 12 03:19:36 2005 Author: ahefner

1 0

[mcclim-cvs] CVS update: mcclim/incremental-redisplay.lisp
by gbaumann＠common-lisp.net 08 May '05

08 May '05

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv11427 Modified Files: incremental-redisplay.lisp Log Message: incremental redisplay changes, part ii: If in UPDATING-OUTPUT the cache test passes but the y cursor coordinate changed, instead of calling the display function again we just move the record on our own. Date: Sun May 8 20:15:44 2005 Author: gbaumann Index: mcclim/incremental-redisplay.lisp diff -u mcclim/incremental-redisplay.lisp:1.47 mcclim/incremental-redisplay.lisp:1.48 --- mcclim/incremental-redisplay.lisp:1.47 Sun May 8 20:09:11 2005 +++ mcclim/incremental-redisplay.lisp Sun May 8 20:15:44 2005 @@ -349,10 +349,10 @@ ;;;programmer forcing all new output. (defun state-matches-stream-p (state stream) - (multiple-value-bind (cx cy) - (stream-cursor-position stream) + (multiple-value-bind (cx cy) (stream-cursor-position stream) (with-sheet-medium (medium stream) - (match-output-records state :cursor-x cx :cursor-y cy)))) + ;; Note: We don't match the y coordinate. + (match-output-records state :cursor-x cx)))) (define-protocol-class updating-output-record (output-record)) @@ -825,6 +825,17 @@ (defvar *no-unique-id* (cons nil nil)) +(defun move-output-record (record dx dy) + (multiple-value-bind (sx sy) (output-record-start-cursor-position record) + (multiple-value-bind (ex ey) (output-record-end-cursor-position record) + (setf (output-record-position record) + (values (+ (nth-value 0 (output-record-position record)) dx) + (+ (nth-value 1 (output-record-position record)) dy))) + (setf (output-record-start-cursor-position record) + (values (+ sx dx) (+ sy dy))) + (setf (output-record-end-cursor-position record) + (values (+ ex dx) (+ ey dy)))))) + (defmethod invoke-updating-output ((stream updating-output-stream-mixin) continuation record-type @@ -864,16 +875,10 @@ (setf (end-graphics-state record) (medium-graphics-state stream)) (add-to-map parent-cache record unique-id id-test all-new))) - ((or (setq state-mismatch - (not (state-matches-stream-p (start-graphics-state - record) - stream))) - (not (funcall cache-test - cache-value - (output-record-cache-value record)))) + ((or (setq state-mismatch (not (state-matches-stream-p (start-graphics-state record) stream))) + (not (funcall cache-test cache-value (output-record-cache-value record)))) (when *trace-updating-output* - (format *trace-output* "~:[cache test~;stream state~] ~S~%" - state-mismatch record)) + (format *trace-output* "~:[cache test~;stream state~] ~S~%" state-mismatch record)) (let ((*current-updating-output* record)) (setf (start-graphics-state record) (medium-graphics-state stream)) @@ -887,16 +892,29 @@ ;; parent's sequence of records (when *trace-updating-output* (format *trace-output* "clean ~S~%" record)) - (setf (output-record-dirty record) :clean) - (setf (output-record-parent record) nil) - (map-over-updating-output #'(lambda (r) - (setf (output-record-dirty r) - :clean)) - record - nil) - (add-output-record record (stream-current-output-record stream)) - (set-medium-graphics-state (end-graphics-state record) stream) - (setf (parent-cache record) parent-cache))) + ;; + (multiple-value-bind (cx cy) (stream-cursor-position stream) + (multiple-value-bind (sx sy) (output-record-start-cursor-position record) + (let ((dx (- cx sx)) + (dy (- cy sy))) + (unless (zerop dy) + (move-output-record record dx dy) ) + (let ((tag (cond ((= dx dy 0) :clean) + (t :moved)))) + (setf (output-record-dirty record) tag) + (setf (output-record-parent record) nil) + (map-over-updating-output #'(lambda (r) + (unless (eq r record) + (incf (slot-value (start-graphics-state r) 'cursor-x) dx) + (incf (slot-value (start-graphics-state r) 'cursor-y) dy) + (incf (slot-value (end-graphics-state r) 'cursor-x) dx) + (incf (slot-value (end-graphics-state r) 'cursor-y) dy)) + (setf (output-record-dirty r) tag)) + record + nil) + (add-output-record record (stream-current-output-record stream)) + (set-medium-graphics-state (end-graphics-state record) stream) + (setf (parent-cache record) parent-cache) )) )))) record))) ;;; The Franz user guide says that updating-output does

1 0

[mcclim-cvs] CVS update: mcclim/incremental-redisplay.lisp
by gbaumann＠common-lisp.net 08 May '05

08 May '05

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv10559 Modified Files: incremental-redisplay.lisp Log Message: Incremental redisplay changes, part i: checking for overlap. Date: Sun May 8 20:09:11 2005 Author: gbaumann Index: mcclim/incremental-redisplay.lisp diff -u mcclim/incremental-redisplay.lisp:1.46 mcclim/incremental-redisplay.lisp:1.47 --- mcclim/incremental-redisplay.lisp:1.46 Tue Mar 8 11:46:16 2005 +++ mcclim/incremental-redisplay.lisp Sun May 8 20:09:11 2005 @@ -280,36 +280,33 @@ (defgeneric incremental-redisplay (stream position erases moves draws erase-overlapping move-overlapping)) -(defmethod incremental-redisplay - ((stream updating-output-stream-mixin) position - erases moves draws erase-overlapping move-overlapping) +(defmethod incremental-redisplay ((stream updating-output-stream-mixin) position + erases moves draws erase-overlapping move-overlapping) (declare (ignore position)) (let ((history (stream-output-history stream))) (with-output-recording-options (stream :record nil :draw t) (loop - for (nil br) in erases - do (erase-rectangle stream br)) + for (nil br) in erases + do (erase-rectangle stream br)) (loop - for (nil old-bounding) in moves - do (erase-rectangle stream old-bounding)) + for (nil old-bounding) in moves + do (erase-rectangle stream old-bounding)) (loop - for (nil br) in erase-overlapping - do (erase-rectangle stream br)) + for (nil br) in erase-overlapping + do (erase-rectangle stream br)) (loop - for (nil old-bounding) in move-overlapping - do (erase-rectangle stream old-bounding))) + for (nil old-bounding) in move-overlapping + do (erase-rectangle stream old-bounding))) (loop - for (r) in moves - do (replay r stream)) + for (r) in moves + do (replay r stream)) (loop - for (r) in draws - do (replay r stream)) - (loop - for (r) in erase-overlapping - do (replay history stream r)) - (loop - for (r) in move-overlapping - do (replay history stream r) ))) + for (r) in draws + do (replay r stream)) + (let ((res +nowhere+)) + (loop for (r) in erase-overlapping do (setf res (region-union res r))) + (loop for (r) in move-overlapping do (setf res (region-union res r))) + (replay history stream res)) )) (defclass updating-stream-state (complete-medium-state) ((cursor-x :accessor cursor-x :initarg :cursor-x :initform 0) @@ -713,141 +710,113 @@ ;;; work in progress (defvar *existing-output-records* nil) -;;; Helper functions for managing a hash table of records +;;; -(defun get-record-hash (record hash) - (let ((bucket (gethash (slot-value record 'coordinates) hash))) - (if (null bucket) - (values nil nil) - (let ((rec (find record bucket :test #'output-record-equal))) - (if rec - (values rec t) - (values nil nil)))))) - -(defun add-record-hash (record hash) - (push record (gethash (slot-value record 'coordinates) hash nil))) - -(defun delete-record-hash (record hash) - (let ((bucket (gethash (slot-value record 'coordinates) hash))) - (if bucket - (multiple-value-bind (new-bucket deleted) - (delete-1 record bucket :test #'output-record-equal) - (if deleted - (progn - (setf (gethash (slot-value record 'coordinates) hash) - new-bucket) - t) - nil)) - nil))) +(defmethod output-record-hash (record) + (slot-value record 'coordinates)) (defmethod compute-difference-set ((record standard-updating-output-record) &optional (check-overlapping t) - offset-x offset-y - old-offset-x old-offset-y) + offset-x offset-y + old-offset-x old-offset-y) (declare (ignore offset-x offset-y old-offset-x old-offset-y)) - (when (eq (output-record-dirty record) :clean) - (return-from compute-difference-set (values nil nil nil nil nil))) - (let* ((draws nil) - (moves (explicit-moves record)) - (erases nil) - (erase-overlapping nil) - (move-overlapping nil) - (stream (updating-output-stream record)) - (visible-region (pane-viewport-region stream)) - (old-children (if (slot-boundp record 'old-children) - (old-children record) - nil)) - (old-bounds (old-bounds record))) - (unless (or (null visible-region) - (region-intersects-region-p visible-region record) - (and old-children - (region-intersects-region-p visible-region old-bounds))) - (return-from compute-difference-set (values nil nil nil nil nil))) - ;; XXX This means that compute-difference-set can't be called repeatedly on - ;; the same tree; ugh. On the other hand, if we don't clear explicit-moves, - ;; they can hang around in the tree for later passes and cause trouble. - (setf (explicit-moves record) nil) - (let ((existing-output-records (make-hash-table :test 'equalp))) - ;; Find output records in the new tree that match a record in the old - ;; tree i.e., already have a valid display on the screen. - (map-over-child-display - (if old-children - #'(lambda (r) - (add-record-hash r existing-output-records)) - #'(lambda (r) (push (list r r) draws))) - (sub-record record) - visible-region) - (when old-children - (map-over-child-display - #'(lambda (r) - (unless (delete-record-hash r existing-output-records) - (push (list r (copy-bounding-rectange r)) erases))) - old-children - visible-region) - ;; Any records left in the hash table do not have a counterpart - ;; visible on the screen and need to be drawn. - (loop - for bucket being the hash-values of existing-output-records - do (loop - for r in bucket - do (push (list r r) draws))))) - (when check-overlapping - (setf erase-overlapping (nconc erases draws)) - (setf move-overlapping moves) - (setf erases nil) - (setf moves nil) - (setf draws nil)) - ;; Visit this record's updating-output children and merge in the - ;; difference set. We need to visit all updating-output records, not just - ;; ones in the visible region, because they might have old records that - ;; lie in the visible region and that need to be erased. - (map-over-child-updating-output - #'(lambda (r) - (multiple-value-bind (e m d e-o m-o) - (compute-difference-set r check-overlapping) - (setf erases (nconc e erases)) - (setf moves (nconc m moves)) - (setf draws (nconc d draws)) - (setf erase-overlapping (nconc e-o erase-overlapping)) - (setf move-overlapping (nconc m-o move-overlapping)))) - (sub-record record) - nil) - ;; Look for updating-output children that were not visited. Their - ;; display records need to be erased. - (when old-children - (flet ((erase-obsolete (dr) ;All of them - (let ((erase-chunk (list dr (copy-bounding-rectange dr)))) - (if check-overlapping - (push erase-chunk erase-overlapping) - (push erase-chunk erases))))) - (declare (dynamic-extent #'erase-obsolete)) - (map-over-child-updating-output - #'(lambda (r) - (when (eq (output-record-dirty r) :updating) - (map-over-obsolete-display #'erase-obsolete - (sub-record r) - visible-region))) - old-children - visible-region))) - ;; Traverse all the display records for this updating output node and do - ;; the notes... - (flet ((note-got (r) - (note-output-record-got-sheet r stream)) - (note-lost (r) - (note-output-record-lost-sheet r stream))) - (declare (dynamic-extent #'note-got #'note-lost)) - (map-over-child-display #'note-got (sub-record record) nil) - (when old-children - (map-over-child-display #'note-lost old-children nil) - (map-over-child-updating-output - #'(lambda (r) - (when (eq (output-record-dirty r) :updating) - (map-over-obsolete-display #'note-lost - (sub-record r) - nil))) - old-children - nil))) - (values erases moves draws erase-overlapping move-overlapping))) + ;; (declare (values erases moves draws erase-overlapping move-overlapping)) + (let (was + is + (everywhere (or +everywhere+ + (pane-viewport-region (updating-output-stream record))))) + ;; Collect what was there + (labels ((gather-was (record) + (cond ((displayed-output-record-p record) + (push record was)) + ((updating-output-record-p record) + (cond ((eq :clean (output-record-dirty record)) + (push record was)) + ((eq :moved (output-record-dirty record)) + (push (slot-value record 'old-bounds) was)) + (t + (map-over-output-records-overlapping-region #'gather-was + (old-children record) + everywhere)))) + (t + (map-over-output-records-overlapping-region #'gather-was record everywhere)) ))) + (gather-was record)) + ;; Collect what still is there + (labels ((gather-is (record) + (cond ((displayed-output-record-p record) + (push record is)) + ((updating-output-record-p record) + (cond ((eq :clean (output-record-dirty record)) + (push record is)) + ((eq :moved (output-record-dirty record)) + (push record is)) + (t + (map-over-output-records-overlapping-region #'gather-is + (sub-record record) + everywhere)))) + (t + (map-over-output-records-overlapping-region #'gather-is record everywhere) )))) + (gather-is record)) + ;; + (let ((was-table (make-hash-table :test #'equalp)) + (is-table (make-hash-table :test #'equalp)) + gone + stay + come) + (loop for w in was do (push w (gethash (output-record-hash w) was-table))) + (loop for i in is do (push i (gethash (output-record-hash i) is-table))) + ;; gone = was \ is + (loop for w in was do + (cond ((updating-output-record-p w) + (unless (eq :clean (output-record-dirty w)) + (push (old-children w) gone))) + (t + (let ((q (gethash (output-record-hash w) is-table))) + (unless (some #'(lambda (x) (output-record-equal w x)) q) + (push w gone)))))) + ;; come = is \ was + ;; stay = is ^ was + (loop for i in is do + (cond ((updating-output-record-p i) + (if (eq :clean (output-record-dirty i)) + (push i stay) + (push i come))) + (t + (let ((q (gethash (output-record-hash i) was-table))) + (if (some #'(lambda (x) (output-record-equal i x)) q) + (push i stay) + (push i come)))))) + ;; Now we essentially want 'gone', 'stay', 'come' + (let ((gone-overlap nil) + (come-overlap nil)) + (when check-overlapping + (setf (values gone gone-overlap) + (loop for k in gone + if (some (lambda (x) (region-intersects-region-p k x)) + stay) + collect k into gone-overlap* + else collect k into gone* + finally (return (values gone* gone-overlap*)))) + (setf (values come come-overlap) + (loop for k in come + if (some (lambda (x) (region-intersects-region-p k x)) + stay) + collect k into come-overlap* + else collect k into come* + finally (return (values come* come-overlap*))))) + ;; Hmm, we somehow miss come-overlap ... + (values + ;; erases + (loop for k in gone collect (list k k)) + ;; moves + nil + ;; draws + (loop for k in come collect (list k k)) + ;; erase overlapping + (append (loop for k in gone-overlap collect (list k k)) + (loop for k in come-overlap collect (list k k))) + ;; move overlapping + nil))))) (defparameter *enable-updating-output* t "Switch to turn on incremental redisplay")

1 0

[mcclim-cvs] CVS update: mcclim/Apps/Inspector/inspector.lisp
by pscott＠common-lisp.net 26 Apr '05

26 Apr '05

Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector In directory common-lisp.net:/tmp/cvs-serv26618 Modified Files: inspector.lisp Log Message: When inspecting packages, Clouseau now lists exported symbols. Date: Tue Apr 26 23:35:24 2005 Author: pscott Index: mcclim/Apps/Inspector/inspector.lisp diff -u mcclim/Apps/Inspector/inspector.lisp:1.31 mcclim/Apps/Inspector/inspector.lisp:1.32 --- mcclim/Apps/Inspector/inspector.lisp:1.31 Sat Apr 2 20:03:59 2005 +++ mcclim/Apps/Inspector/inspector.lisp Tue Apr 26 23:35:24 2005 @@ -512,6 +512,12 @@ (with-text-family (pane :fix) (princ (package-name object) pane)))) +(defun package-exported-symbols (package) + "Return a list of all symbols exported by PACKAGE" + (let (symbols) + (do-external-symbols (symbol package symbols) + (push symbol symbols)))) + (defmethod inspect-object ((object package) pane) (inspector-table (object pane) (format pane "Package: ~S" (package-name object)) @@ -526,7 +532,10 @@ (inspect-vertical-list (package-used-by-list object) pane)) (inspector-table-row (pane) (princ "Uses:") - (inspect-vertical-list (package-use-list object) pane)))) + (inspect-vertical-list (package-use-list object) pane)) + (inspector-table-row (pane) + (princ "Exports:") + (inspect-vertical-list (package-exported-symbols object) pane)))) (defmethod inspect-object ((object vector) pane) (with-output-as-presentation

1 0

[mcclim-cvs] CVS update: mcclim/Apps/Debugger/clim-debugger.lisp
by ahefner＠common-lisp.net 26 Apr '05

26 Apr '05

Update of /project/mcclim/cvsroot/mcclim/Apps/Debugger In directory common-lisp.net:/tmp/cvs-serv26063/Debugger Added Files: clim-debugger.lisp Log Message: Checking in Peter Mechlenborg's CLIM debugger. Date: Tue Apr 26 05:19:35 2005 Author: ahefner

1 0