[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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