Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv29521/Drei
Modified Files: lisp-syntax-swine.lisp lisp-syntax-commands.lisp Log Message: The Compile Definition command is not going to work properly in standalone Drei. Move to Climacs.
--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp 2006/11/08 01:15:33 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp 2006/11/14 12:27:53 1.2 @@ -1080,24 +1080,3 @@ (result (apply #'format nil "~{{~:[No values~;~:*~{~S~^,~}~]}~}" values))) (esa:display-message result))))) - -(defun compile-definition-interactively (mark syntax) - (let* ((token (definition-at-mark mark syntax)) - (string (token-string syntax token)) - (m (clone-mark mark)) - (buffer-name (name (buffer syntax))) - (*read-base* (base syntax))) - (with-syntax-package (syntax mark) - (forward-definition m syntax) - (backward-definition m syntax) - (multiple-value-bind (result notes) - (compile-form-for-drei (get-usable-image syntax) - (token-to-object syntax token - :read t - :package (package-at-mark syntax mark)) - (buffer syntax) - m) - (show-note-counts notes (second result)) - (when (not (null notes)) - (show-notes notes buffer-name - (one-line-ify (subseq string 0 (min (length string) 20))))))))) --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp 2006/11/08 01:15:33 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp 2006/11/14 12:27:53 1.2 @@ -184,12 +184,6 @@ (rotatef mark point)) (eval-region mark point *current-syntax*)))
-(define-command (com-compile-definition :name t :command-table pane-lisp-table) - () - "Compile and load definition at point." - (evaluating-interactively - (compile-definition-interactively *current-point* *current-syntax*))) - (define-command (com-eval-last-expression :name t :command-table pane-lisp-table) ((insertp 'boolean :prompt "Insert?")) "Evaluate the expression before point in the local Lisp image." @@ -281,10 +275,6 @@ 'pane-lisp-table '((#\c :control) (#\r :control)))
-(set-key 'com-compile-definition - 'pane-lisp-table - '((#\c :control) (#\c :control))) - (set-key `(com-eval-last-expression ,*numeric-argument-p*) 'pane-lisp-table '((#\c :control) (#\e :control)))