Commit 8dcd73e9 authored by Troels Henriksen's avatar Troels Henriksen

Use ESA-UTILS:FORMAT-SYM for formatting symbols.

parent 299ad9b5
......@@ -422,7 +422,7 @@ macros or similar). If no such form can be found, return NIL."
(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))
......
......@@ -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
......
......@@ -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) ())
......
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