climacs-cvs May 2005

climacs-cvs@common-lisp.net

4 participants
64 discussions

[climacs-cvs] CVS update: climacs/gui.lisp
by crhodes＠common-lisp.net 05 May '05

05 May '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv893 Modified Files: gui.lisp Log Message: Provide a "comfort" restart, allowing recovery from unhandled lisp errors in the dynamic extent of the climacs command loop Date: Thu May 5 12:59:43 2005 Author: crhodes Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.130 climacs/gui.lisp:1.131 --- climacs/gui.lisp:1.130 Thu May 5 00:51:19 2005 +++ climacs/gui.lisp Thu May 5 12:59:42 2005 @@ -284,11 +284,12 @@ (redisplay-frame-panes frame)))) (loop for maybe-error = t - do (handler-case - (with-input-context ('(command - :command-table 'global-climacs-table)) - (object) - (loop + do (with-simple-restart (return-to-climacs "Return to Climacs") + (handler-case + (with-input-context ('(command + :command-table 'global-climacs-table)) + (object) + (loop for gestures = '() do (multiple-value-bind (numarg numargp) (read-numeric-argument :stream *standard-input*) @@ -306,15 +307,14 @@ (do-command command) (return))) (t nil))))) - (update-climacs)) - (t - (do-command object) - (setq maybe-error nil))) - (abort-gesture () - (display-message "Quit"))) - (when maybe-error - (beep)) - (update-climacs)))))) + (update-climacs)) + (t + (do-command object) + (setq maybe-error nil))) + (abort-gesture () (display-message "Quit")))) + (when maybe-error + (beep)) + (update-climacs)))))) (defmacro simple-command-loop (command-table loop-condition end-clauses) (let ((gesture (gensym))

1 0

[climacs-cvs] CVS update: climacs/gui.lisp
by abakic＠common-lisp.net 04 May '05

04 May '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv2401 Modified Files: gui.lisp Log Message: Contribution by John Q. Splittist: Minibuffer feedback for the Isearch fns. Date: Thu May 5 00:51:20 2005 Author: abakic Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.129 climacs/gui.lisp:1.130 --- climacs/gui.lisp:1.129 Tue May 3 22:45:17 2005 +++ climacs/gui.lisp Thu May 5 00:51:19 2005 @@ -1092,6 +1092,8 @@ (offset mark) (if forwardp (- (offset mark2) (length string)) (+ (offset mark2) (length string))))) + (display-message "~:[Failing ~;~]Isearch~:[ backward~;~]: ~A" + success forwardp string) (push (make-instance 'isearch-state :search-string string :search-mark mark @@ -1102,9 +1104,11 @@ (beep))))) (define-named-command com-isearch-mode-forward () + (display-message "Isearch: ") (isearch-command-loop (current-window) t)) (define-named-command com-isearch-mode-backward () + (display-message "Isearch backward: ") (isearch-command-loop (current-window) nil)) (define-named-command com-isearch-append-char () @@ -1122,6 +1126,7 @@ (define-named-command com-isearch-delete-char () (let* ((pane (current-window))) (cond ((null (second (isearch-states pane))) + (display-message "Isearch: ") (beep)) (t (pop (isearch-states pane)) @@ -1134,7 +1139,10 @@ (+ (offset (search-mark state)) (length (search-string state))) (- (offset (search-mark state)) - (length (search-string state)))))))))) + (length (search-string state))))) + (display-message "Isearch~:[ backward~;~]: ~A" + (search-forward-p state) + (search-string state))))))) (define-named-command com-isearch-forward () (let* ((pane (current-window))

1 0

[climacs-cvs] CVS update: climacs/gui.lisp
by abakic＠common-lisp.net 03 May '05

03 May '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv29990 Modified Files: gui.lisp Log Message: Contribution by John Q. Splittist: Made Find File more portable by copying some code from cl-fad. Date: Tue May 3 22:45:17 2005 Author: abakic Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.128 climacs/gui.lisp:1.129 --- climacs/gui.lisp:1.128 Sat Mar 19 23:08:31 2005 +++ climacs/gui.lisp Tue May 3 22:45:17 2005 @@ -621,12 +621,18 @@ (full-so-far (concatenate 'string directory-prefix so-far)) (pathnames (loop with length = (length full-so-far) - for path in (directory (concatenate 'string - (remove-trail so-far) - "*.*")) - when (let ((mismatch (mismatch (namestring path) full-so-far))) - (or (null mismatch) (= mismatch length))) - collect path)) + and wildcard = (concatenate 'string (remove-trail so-far) "*.*") + for path in + #+(or sbcl cmu lispworks) (directory wildcard) + #+openmcl (directory wildcard :directories t) + #+allegro (directory wildcard :directories-are-files nil) + #+cormanlisp (nconc (directory wildcard) + (cl::directory-subdirs dirname)) + #-(or sbcl cmu lispworks openmcl allegro cormanlisp) + (directory wildcard) + when (let ((mismatch (mismatch (namestring path) full-so-far))) + (or (null mismatch) (= mismatch length))) + collect path)) (strings (mapcar #'namestring pathnames)) (first-string (car strings)) (length-common-prefix nil)

1 0

[climacs-cvs] CVS update: climacs/syntax.lisp
by crhodes＠common-lisp.net 02 May '05

02 May '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv13557 Modified Files: syntax.lisp Log Message: Use sbit rather than aref, mostly for self-documentation (because it doesn't actually speed things up much; it's just a constant-factor optimization) Date: Mon May 2 11:05:01 2005 Author: crhodes Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.47 climacs/syntax.lisp:1.48 --- climacs/syntax.lisp:1.47 Sat Apr 16 07:20:29 2005 +++ climacs/syntax.lisp Mon May 2 11:05:00 2005 @@ -401,8 +401,8 @@ (if (functionp (right-hand-side rule)) (let ((predicted-rules (slot-value to-state 'predicted-rules)) (rule-number (slot-value rule 'number))) - (when (zerop (aref predicted-rules rule-number)) - (setf (aref predicted-rules rule-number) 1) + (when (zerop (sbit predicted-rules rule-number)) + (setf (sbit predicted-rules rule-number) 1) (handle-incomplete-item (make-instance 'incomplete-item :orig-state to-state :predicted-from item

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

climacs-cvs May 2005