HCoop
/
clinton
/
lisp-on-lines.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
conditionalize lol2 many-to-many
[clinton/lisp-on-lines.git]
/
src
/
standard-attributes.lisp
1
(
in-package
:
lisp-on-lines
)
2
3
(
defattribute
image
()
4
())
5
6
(
defdisplay
(:
description
(
image
image
))
7
(<:
img
8
:
class
(
or
(
getp
:
class
)
"lol-image"
)
9
:
src
(
arnesi
:
strcat
10
(
or
(
getp
:
prefix
)
"images/"
)
11
(
escape-as-uri
12
(
attribute-value
object image
)))))
13
14
15
16
17
18