HCoop
/
clinton
/
lisp-on-lines.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
34e8e2d
)
added a defualt :size initarg of 30. this should be more customisable.
author
Drew Crampsie
<drewc@tech.coop>
Thu, 7 Jul 2005 02:48:12 +0000
(19:48 -0700)
committer
Drew Crampsie
<drewc@tech.coop>
Thu, 7 Jul 2005 02:48:12 +0000
(19:48 -0700)
darcs-hash:
20050707024812
-5417e-
c5fd49d080052edb275c6da430d5e9916ae26720
.gz
src/mewa/mewa.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/mewa/mewa.lisp
b/src/mewa/mewa.lisp
index
80795c8
..
1d8916c
100644
(file)
--- a/
src/mewa/mewa.lisp
+++ b/
src/mewa/mewa.lisp
@@
-241,7
+241,7
@@
attributes is an alist keyed on the attribute nreeame."
(let ((class-name (or (gethash (second s) ucw::*slot-type-mapping*) 'mewa-object-presentation)))
(apply #'make-instance
class-name
- (append (cddr s) (list :parent self)))))
+ (append (cddr s) (list :parent self
:size 30
)))))
(find-applicable-attributes self)))