From thenriksen at common-lisp.net  Sat Jun  7 13:31:15 2008
From: thenriksen at common-lisp.net (thenriksen)
Date: Sat,  7 Jun 2008 09:31:15 -0400 (EDT)
Subject: [mcclim-cvs] CVS mcclim/Drei
Message-ID: <20080607133115.0899471142@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv28758/Drei

Modified Files:
	lisp-syntax-swank.lisp 
Log Message:
Commit patch from Nikodemus to make Drei work with current Swank.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swank.lisp	2008/02/08 10:37:46	1.12
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swank.lisp	2008/06/07 13:31:14	1.13
@@ -64,7 +64,8 @@
          (swank::*buffer-package* package)
          (swank::*buffer-readtable* *readtable*))
     (let  ((result (swank::compile-string-for-emacs
-                    string view-name (offset buffer-mark) (princ-to-string buffer-file-name)))
+                    string view-name (offset buffer-mark) (princ-to-string buffer-file-name)
+                    nil))
            (notes (loop for note in (swank::compiler-notes-for-emacs)
                      collect (make-compiler-note note))))
       (values result notes))))



From thenriksen at common-lisp.net  Sun Jun 15 09:01:33 2008
From: thenriksen at common-lisp.net (thenriksen)
Date: Sun, 15 Jun 2008 05:01:33 -0400 (EDT)
Subject: [mcclim-cvs] CVS mcclim/ESA
Message-ID: <20080615090133.650B6671A6@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/ESA
In directory clnet:/tmp/cvs-serv21340/ESA

Modified Files:
	packages.lisp utils.lisp 
Log Message:
Added FORMAT-SYM function from Maciej Katafiasz to ESA-UTILS.


--- /project/mcclim/cvsroot/mcclim/ESA/packages.lisp	2008/05/01 06:48:22	1.20
+++ /project/mcclim/cvsroot/mcclim/ESA/packages.lisp	2008/06/15 09:01:33	1.21
@@ -47,6 +47,7 @@
            #:ensure-array-size
            #:values-max-min
            #:retaining-value
+           #:format-sym
            #:build-menu #:define-menu-table
            #:observable-mixin
            #:add-observer #:remove-observer
--- /project/mcclim/cvsroot/mcclim/ESA/utils.lisp	2008/04/29 16:27:42	1.12
+++ /project/mcclim/cvsroot/mcclim/ESA/utils.lisp	2008/06/15 09:01:33	1.13
@@ -273,6 +273,18 @@
               (unwind-protect (progn , at body)
                 (setf (symbol-value ',symbol) ,bound-symbol))))))
 
+(defun format-sym (format-string &rest args)
+  "Return `format-string' with args spliced in, where all
+arguments that are symbols with have their `symbol-name' spliced
+instead, this makes sure the result is correct even on systems
+where read/print case is other than default."
+  (apply #'format nil format-string
+         (mapcar #'(lambda (arg)
+                     (if (symbolp arg)
+                         (symbol-name arg)
+                         arg))
+                 args)))
+
 (defun build-menu (command-tables &rest commands)
   "Create a command table inheriting commands from
 `command-tables', which must be a list of command table



From thenriksen at common-lisp.net  Sun Jun 29 23:36:27 2008
From: thenriksen at common-lisp.net (thenriksen)
Date: Sun, 29 Jun 2008 19:36:27 -0400 (EDT)
Subject: [mcclim-cvs] CVS mcclim/Drei
Message-ID: <20080629233627.C75EE3F039@common-lisp.net>

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv27932/Drei

Modified Files:
	input-editor.lisp 
Log Message:
Fixed clear bug in the Drei accept method for expressions.


--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/05/24 12:00:29	1.48
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/06/29 23:36:27	1.49
@@ -833,7 +833,8 @@
             ;; above us will not believe us when we tell them that the
             ;; input is empty
            (delete-buffer-range (buffer (view drei)) start-scan-pointer
-                                (stream-scan-pointer stream))
+                                (- (stream-scan-pointer stream)
+                                   start-scan-pointer))
            (setf (stream-scan-pointer stream) start-scan-pointer)
            (simple-parse-error "Empty input")
          ;; We only want to process the gesture if it is fresh, because