Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv22321
Modified Files:
climacs-lisp-syntax.lisp packages.lisp prolog-syntax.lisp
Log Message:
Use ESA-UTILS:FORMAT-SYM for formatting symbols.
--- /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp 2008/02/05 22:07:30 1.16
+++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp 2008/06/15 09:11:23 1.17
@@ -422,7 +422,7 @@
(with-drawing-options (stream :ink +dark-blue+
:text-style (make-text-style :fixed nil nil))
(princ (dspec item) stream))))
- (climacs-gui:with-typeout-view (stream (format nil "~A ~A" type symbol))
+ (climacs-gui:with-typeout-view (stream (format-sym "~A ~A" type symbol))
(loop for xref in xrefs
do (with-output-as-presentation (stream xref 'xref)
(printer xref stream))
--- /project/climacs/cvsroot/climacs/packages.lisp 2008/02/05 22:07:31 1.138
+++ /project/climacs/cvsroot/climacs/packages.lisp 2008/06/15 09:11:23 1.139
@@ -161,7 +161,7 @@
(defpackage :climacs-prolog-syntax
(:use :clim-lisp :clim :drei-buffer :drei-base
:drei-syntax :flexichain :drei :climacs-core :drei-fundamental-syntax
- :drei)
+ :drei :esa-utils)
(:shadow #:atom #:close #:exp #:integer #:open #:variable))
(defpackage :climacs-cl-syntax
--- /project/climacs/cvsroot/climacs/prolog-syntax.lisp 2008/02/11 22:50:27 1.37
+++ /project/climacs/cvsroot/climacs/prolog-syntax.lisp 2008/06/15 09:11:23 1.38
@@ -98,7 +98,7 @@
(defmethod syntactic-lexeme ((lexeme prolog-lexeme))
lexeme)
(macrolet ((def ((name &optional tokenp) &rest subs)
- (flet ((f (x) (intern (format nil "~A-~A" x '#:lexeme))))
+ (flet ((f (x) (intern (format-sym "~A-~A" x '#:lexeme))))
`(progn
(defclass ,(f name) (prolog-lexeme) ())
