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
gendl
gendl
Commits
32801332
Commit
32801332
authored
Nov 08, 2015
by
Dave Cooper
Browse files
finished the define-object-toplevel-macro
parent
f0b92f8c
Changes
2
Hide whitespace changes
Inline
Side-by-side
base/source/parameters.lisp
View file @
32801332
...
...
@@ -121,12 +121,13 @@ compared to applications compiled with it set to T. Defaults to NIL.")
(
list
:required-input-slots
:optional-input-slots
:settable-optional-input-slots
:defaulted-input-slots
:settable-defaulted-input-slots
:computed-slots
:settable-computed-slots
:uncached-computed-slots
:objects
:quantified-objects
:hidden-objects
:quantified-hidden-objects
:functions
:query-slots
))
:objects
:quantified-objects
:hidden-objects
:quantified-hidden-objects
:functions
:query-slots
))
(
defparameter
*allowed-define-object-toplevel-keywords*
(
list
:input-slots
:computed-slots
:objects
:hidden-objects
:functions
:methods
:trickle-down-slots
:cached-functions
:cached-methods
))
:methods
:trickle-down-slots
:cached-functions
:cached-methods
:documentation
:no-vanilla-mixin?
))
(
defparameter
*define-object-toplevel-macros*
(
make-hash-table
))
...
...
base/source/utilities.lisp
View file @
32801332
...
...
@@ -390,8 +390,6 @@ You have a dependency on caffeine. Your children are your dependants.
;; FLAG - call recursively until no more non-standard keywords remain.
(
setq
plist
(
expand-define-object-macros-toplevel
plist
))
(
print-variables
plist
)
(
let
((
ht
(
make-hash-table
))
result
)
(
mapc
#'
(
lambda
(
key
value
)
(
let
((
current
(
gethash
key
ht
)))
;; FLAG consider nconc here.
...
...
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