mcclim-cvs June 2008

mcclim-cvs@common-lisp.net

1 participants
3 discussions

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 29 Jun '08

29 Jun '08

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

1 0

[mcclim-cvs] CVS mcclim/ESA
by thenriksen 15 Jun '08

15 Jun '08

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 ,@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

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 07 Jun '08

07 Jun '08

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))))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs June 2008