Commit b19b59cc authored by Marco Baringer's avatar Marco Baringer

*** empty log message ***

parent a553fb85
;;;; -*- 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
;;;; All rights reserved.
......@@ -40,6 +40,7 @@
#:defsimple-xtag
#:process-yaclml-file
#:*yaclml-stream*
#:with-yaclml-stream
#:yaclml-to-file
#:enable-yaclml-syntax
#:disable-yaclml-syntax))
......
;;;; -*- 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
;;;; All rights reserved.
......@@ -40,8 +40,6 @@
(declare (special *yaclml-stream*))
,@body))
(defvar *yaclml-indent* 0)
(defvar *yaclml-tags* (make-hash-table :test 'eql))
(defun yaclml-princ (item)
......@@ -238,13 +236,13 @@
(#\, (forms (read stream t nil t)))
(t (forms char))))))
(let ((readers '()))
(defvar *readers* '())
(defun enable-yaclml-sytax ()
(push (get-macro-character #\[) readers)
(set-macro-character #\[ #'|[ reader|))
(defun enable-yaclml-syntax ()
(push (get-macro-character #\[) *readers*)
(set-macro-character #\[ #'|[ reader|))
(defun disable-yaclml-syntax ()
(unless readers
(error "Can't disable yaclml syntax if it hasn't been enabled."))
(set-macro-character #\[ (pop readers))))
(defun disable-yaclml-syntax ()
(unless *readers*
(error "Can't disable yaclml syntax if it hasn't been enabled."))
(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