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