Commit 6ff394dc authored by Troels Henriksen's avatar Troels Henriksen
Browse files

Big refactoring and enhancement patch for Lisp syntax.

* New file added, lisp-syntax-swine.lisp, in order to keep the size of
  lisp-syntax.lisp down.

* `define-form-traits' macro that can be used to teach Climacs how to
  intelligently handle certain forms (for example, only symbols naming
  classes will be completed from when using `make-instance' or
  `make-pane').

* Taught Climacs how to handle certain forms.
parent ed18b495
...@@ -88,13 +88,13 @@ string at point." ...@@ -88,13 +88,13 @@ string at point."
(define-command (com-set-base :name t :command-table lisp-table) (define-command (com-set-base :name t :command-table lisp-table)
((base '(integer 2 36))) ((base '(integer 2 36)))
"Set the base for the current buffer." "Set the base for the current buffer."
(setf (base (syntax (current-buffer))) (setf (base (syntax (current-buffer *application-frame*)))
base)) base))
(define-command (com-set-package :name t :command-table lisp-table) (define-command (com-set-package :name t :command-table lisp-table)
((package 'package)) ((package 'package))
"Set the package for the current buffer." "Set the package for the current buffer."
(setf (option-specified-package (syntax (current-buffer))) (setf (option-specified-package (syntax (current-buffer *application-frame*)))
package)) package))
(define-command (com-indent-expression :name t :command-table lisp-table) (define-command (com-indent-expression :name t :command-table lisp-table)
......
...@@ -47,7 +47,7 @@ ...@@ -47,7 +47,7 @@
(handler-case (asdf:oos 'asdf:load-op :swank) (handler-case (asdf:oos 'asdf:load-op :swank)
(asdf:missing-component () (asdf:missing-component ()
(esa:display-message "Swank not available."))))) (esa:display-message "Swank not available.")))))
(setf (image (syntax (current-buffer))) (setf (image (syntax (current-buffer *application-frame*)))
(make-instance 'swank-local-image))) (make-instance 'swank-local-image)))
(defmethod compile-string-for-climacs ((image swank-local-image) string package buffer buffer-mark) (defmethod compile-string-for-climacs ((image swank-local-image) string package buffer buffer-mark)
......
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment