Commit b19b59cc authored by Marco Baringer's avatar Marco Baringer

*** empty log message ***

parent a553fb85
;;;; -*- lisp -*- ;;;; -*- lisp -*-
;;;; $Id: packages.lisp,v 1.2 2003/08/17 15:51:31 mbaringer Exp $ ;;;; $Id: packages.lisp,v 1.3 2003/08/17 16:11:16 mbaringer Exp $
;;;; ;;;;
;;;; Copyright (c) 2002-2003, Edward Marco Baringer ;;;; Copyright (c) 2002-2003, Edward Marco Baringer
;;;; All rights reserved. ;;;; All rights reserved.
...@@ -40,6 +40,7 @@ ...@@ -40,6 +40,7 @@
#:defsimple-xtag #:defsimple-xtag
#:process-yaclml-file #:process-yaclml-file
#:*yaclml-stream* #:*yaclml-stream*
#:with-yaclml-stream
#:yaclml-to-file #:yaclml-to-file
#:enable-yaclml-syntax #:enable-yaclml-syntax
#:disable-yaclml-syntax)) #:disable-yaclml-syntax))
......
;;;; -*- lisp -*- ;;;; -*- lisp -*-
;;;; $Id: yaclml.lisp,v 1.2 2003/08/17 15:51:31 mbaringer Exp $ ;;;; $Id: yaclml.lisp,v 1.3 2003/08/17 16:11:16 mbaringer Exp $
;;;; ;;;;
;;;; Copyright (c) 2002-2003, Edward Marco Baringer ;;;; Copyright (c) 2002-2003, Edward Marco Baringer
;;;; All rights reserved. ;;;; All rights reserved.
...@@ -40,8 +40,6 @@ ...@@ -40,8 +40,6 @@
(declare (special *yaclml-stream*)) (declare (special *yaclml-stream*))
,@body)) ,@body))
(defvar *yaclml-indent* 0)
(defvar *yaclml-tags* (make-hash-table :test 'eql)) (defvar *yaclml-tags* (make-hash-table :test 'eql))
(defun yaclml-princ (item) (defun yaclml-princ (item)
...@@ -238,13 +236,13 @@ ...@@ -238,13 +236,13 @@
(#\, (forms (read stream t nil t))) (#\, (forms (read stream t nil t)))
(t (forms char)))))) (t (forms char))))))
(let ((readers '())) (defvar *readers* '())
(defun enable-yaclml-sytax () (defun enable-yaclml-syntax ()
(push (get-macro-character #\[) readers) (push (get-macro-character #\[) *readers*)
(set-macro-character #\[ #'|[ reader|)) (set-macro-character #\[ #'|[ reader|))
(defun disable-yaclml-syntax () (defun disable-yaclml-syntax ()
(unless readers (unless *readers*
(error "Can't disable yaclml syntax if it hasn't been enabled.")) (error "Can't disable yaclml syntax if it hasn't been enabled."))
(set-macro-character #\[ (pop readers)))) (set-macro-character #\[ (pop *readers*))))
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