Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
eclipse
eclipse
Commits
f323a203
Commit
f323a203
authored
Nov 04, 2009
by
Iban Hatchondo
Browse files
Fix compilation with latest sbcl versions
parent
e5c53363
Changes
1
Hide whitespace changes
Inline
Side-by-side
lib/clx-ext/event.lisp
View file @
f323a203
;;; -*- Mode: Lisp; Package: CLX-EXTENSIONS -*-
;;; $Id: event.lisp,v 1.
8
2005/01/
0
5
00:23:57
ihatchondo Exp $
;;; $Id: event.lisp,v 1.
9
2005/01/
1
5
12:27:00
ihatchondo Exp $
;;;
;;; Add on for CLX to have some CLOS events.
;;; This file is part of Eclipse.
...
...
@@ -248,8 +248,15 @@
#+
lucid
`
(
clos:slot-definition-initargs
,
slot
)
#+
sbcl
`
(
slot-value
,
slot
'sb-pcl::initargs
))
(
defmacro
finalize-inheritance
(
class
)
#+
sbcl
`
(
sb-mop:finalize-inheritance
,
class
)
#+
cmu
`
(
pcl:finalize-inheritance
,
class
)
#+
clisp
`
(
clos:finalize-inheritance
,
class
))
(
defmacro
class-initargs
(
class
)
`
(
loop
for
slot
in
(
class-slots
,
class
)
collect
(
car
(
slot-initargs
slot
))))
`
(
progn
(
finalize-inheritance
,
class
)
(
loop
for
slot
in
(
class-slots
,
class
)
collect
(
car
(
slot-initargs
slot
)))))
(
macrolet
((
define-make-event-function
()
(
flet
((
make-initarg-key-value-pair
(
initargs
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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