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
Sébastien Villemot
antik
Commits
8d4bd257
Commit
8d4bd257
authored
May 29, 2013
by
Liam M. Healy
Browse files
Don't offer help with non-existent parameters
parent
fd67500c
Changes
1
Hide whitespace changes
Inline
Side-by-side
input-output/parameters.lisp
View file @
8d4bd257
;; Global/local parameters to pass to functions
;; Liam Healy 2013-02-16 20:51:14HST variable-metadata.lisp
;; Time-stamp: <2013-05-2
8 23:20:42
EDT parameters.lisp>
;; Time-stamp: <2013-05-2
9 12:21:19
EDT parameters.lisp>
;; Copyright 2011, 2013 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -205,6 +205,9 @@
append
(
list
`
(
parameter-value
,
category
,
(
first
nv
))
(
second
nv
)))))
,@
body
))
(
with-parameters
(
nf
(
no-units
t
))
(
foorbar
))
#+
(
or
)
(
with-parameters
(
:nf
(
:style
44
))
(
foobar
(
parameter-value
:nf
:style
)))
...
...
@@ -226,11 +229,12 @@
(
if
category
(
if
name
(
let
((
par
(
find-parameter
category
name
)))
(
format
stream
"~&~a: ~a~&Type is ~s,~&Current value is ~s."
par
(
documentation
par
'variable
)
(
get
par
:type
)
(
symbol-value
par
)))
(
when
par
(
format
stream
"~&~a: ~a~&Type is ~s,~&Current value is ~s."
par
(
documentation
par
'variable
)
(
get
par
:type
)
(
symbol-value
par
))))
(
format
stream
"~&Parameters in ~a: ~a"
category
(
format-list
(
mapcar
'symbol-name
(
parameter-list
category
))
nil
)))
...
...
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