From thenriksen at common-lisp.net  Sun Jun 15 09:11:23 2008
From: thenriksen at common-lisp.net (thenriksen)
Date: Sun, 15 Jun 2008 05:11:23 -0400 (EDT)
Subject: [climacs-cvs] CVS climacs
Message-ID: <20080615091123.BF2B771123@common-lisp.net>

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