X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/jlisp/blobdiff_plain/ca5f00c8c447c05ab7d843a075bb68bc884fef47..a2e7266a20fff562054c0f546e4a49c03b93ce20:/dep-ui.lisp

diff --git a/dep-ui.lisp b/dep-ui.lisp
index f31bebc..d6e483c 100644
--- 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))