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
4f0baec1
Commit
4f0baec1
authored
Feb 11, 2008
by
Peter Hildebrandt
Browse files
sbcl fixes (forward declaration of reader methods, eval-when)
parent
c165c14d
Changes
2
Hide whitespace changes
Inline
Side-by-side
defmodel.lisp
View file @
4f0baec1
...
...
@@ -46,7 +46,9 @@ See the Lisp Lesser GNU Public License for more details.
`
(
eval-when
(
:compile-toplevel
:execute
:load-toplevel
)
(
unless
(
macro-function
',deriver-fn
)
(
defmacro
,
deriver-fn
()
`
(
,
',reader-fn
self
))))))))))
`
(
,
',reader-fn
self
)))
#+
sbcl
(
unless
(
fboundp
',reader-fn
)
(
defgeneric
,
reader-fn
(
slot
))))))))))
;
; ------- defclass --------------- (^slot-value ,model ',',slotname)
...
...
@@ -98,9 +100,8 @@ 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
(
setf
(
md-slot-cell-type
',class
',slotname
)
,
cell
)
,
(
when
owning
`
(
setf
(
md-slot-owning
',class
',slotname
)
,
owning
))
,
(
when
reader-fn
...
...
utils-kt/core.lisp
View file @
4f0baec1
...
...
@@ -23,7 +23,7 @@ See the Lisp Lesser GNU Public License for more details.
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
defmacro
export!
(
&rest
symbols
)
`
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
`
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
export
',symbols
))))
(
eval-now!
...
...
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