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