Overhaul.

[jlisp] / dep-ui.lisp

diff --git a/dep-ui.lisp b/dep-ui.lisp
index f31bebc61ea2081afc9cc6d9d011e49beaa68fe3..d6e483cbe3958c504060315a0d20c4ff92c7b48e 100644 (file)
--- a/dep-ui.lisp
+++ b/dep-ui.lisp
@@ -25,7 +25,7 @@ (defpackage #:dep-ui
   (:use #:common-lisp #:jj #:swing #:java #:dep #:extensions)
   (:export #:make-label #:make-input #:make-output #:make-group
           #:make-radio-dep #:within-group #:defwindow #:make-window
-          #:install-dep-syntax #:add-reason #:drop-reason))
+          #:add-reason #:drop-reason))
 
 (in-package #:dep-ui)
 
@@ -180,22 +180,6 @@ (defmacro within-group ((label) &body body)
   `(let ((*panel* (make-group ,label)))
      ,@body))
 
-(defun install-dep-syntax (&optional (readtable *readtable*))
-  (set-macro-character #\?
-                      (lambda (stream char)
-                        (declare (ignore char))
-                        (list 'dep-value (read stream t nil t)))
-                      readtable)
-  (set-syntax-from-char #\] #\) readtable readtable)
-  (set-dispatch-macro-character #\# #\[
-                               (lambda (stream arg char)
-                                 (declare (ignore arg char))
-                                 `(make-dep (lambda ()
-                                              ,@(read-delimited-list #\]
-                                                                     stream
-                                                                     t))))
-                               readtable))
-
 (let ((reasons 0))
   (defun add-reason ()
     (incf reasons))