Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
climacs
climacs
Commits
8dcd73e9
Commit
8dcd73e9
authored
Jun 15, 2008
by
Troels Henriksen
Browse files
Use ESA-UTILS:FORMAT-SYM for formatting symbols.
parent
299ad9b5
Changes
3
Hide whitespace changes
Inline
Side-by-side
climacs-lisp-syntax.lisp
View file @
8dcd73e9
...
...
@@ -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
))
...
...
packages.lisp
View file @
8dcd73e9
...
...
@@ -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
...
...
prolog-syntax.lisp
View file @
8dcd73e9
...
...
@@ -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
)
())
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment