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
cells
cells
Commits
07a72a28
Commit
07a72a28
authored
Feb 16, 2008
by
Peter Hildebrandt
Browse files
ken's defmodel fix
parent
74a3060a
Changes
1
Hide whitespace changes
Inline
Side-by-side
defmodel.lisp
View file @
07a72a28
...
...
@@ -100,7 +100,7 @@ the defmodel form for ~a" ',class ',class))))
(
let*
((
reader-fn
(
or
reader
accessor
))
(
writer-fn
(
or
writer
accessor
))
)
`
(
progn
;;
eval-when (#
+
sbcl :load-toplevel :execute) ; ph -- prevent sbcl warning
`
(
eval-when
(
#
-
sbcl
:compile-toplevel
:load-toplevel
:execute
)
; ph -- prevent sbcl warning
(
setf
(
md-slot-cell-type
',class
',slotname
)
,
cell
)
,
(
when
owning
`
(
setf
(
md-slot-owning
',class
',slotname
)
,
owning
))
...
...
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