Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
gendl
gendl-patches
gendl-patches
Commits
ab29798f
Commit
ab29798f
authored
Nov 24, 2020
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
reverted gwl:wmd macro definition to correct version.
parent
55d494a2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
40 additions
and
8 deletions
+40
-8
source/gwl.lisp
source/gwl.lisp
+40
-8
No files found.
source/gwl.lisp
View file @
ab29798f
...
...
@@ -371,17 +371,49 @@ package-qualified object name\")
;;
(
#+
allegro
excl:without-package-locks
#-
allegro
progn
(
defmacro
wmd
(
string
)
`
(
with-cl-who-string
()
(
str
(
with-output-to-string
(
ss
)
(
markdown:markdown
,
string
:stream
ss
)))))
#+
nil
#-
allegro
progn
(
defmacro
wmd
(
string
)
`
(
str
(
with-output-to-string
(
ss
)
(
markdown:markdown
,
string
:stream
ss
)))))
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
export
'wmd
))
(
#+
allegro
excl:without-package-locks
#-
allegro
progn
(
define-object-amendment
skeleton-ui-element
()
:input-slots
((
"Boolean. This switch determines whether all form-controls should be preset
before the final setting, in order to allow any interdependencies to be detected
for validation or detecting changed values. If this is specified as a non-nil
value, then any nil values of (the preset?) on individual form controls will be
ignored. If this is specified as nil, then (the preset?) of individual
form-controls (default of these is also nil) will be respected. Default is nil."
preset-all?
nil
))))
(
#+
allegro
excl:without-package-locks
#-
allegro
progn
(
defun
initialize
()
;;
;; FLAG -- investigate if this initialize-multiprocessing business
;; is still needed, currently LW-only.
;;
(
glisp:initialize-multiprocessing
)
(
when
(
find-package
:zacl
)
(
setq
excl:*initial-terminal-io*
*terminal-io*
)
(
setq
net.aserve:*wserver*
(
make-instance
'net.aserve:wserver
)))
(
setq
*iid-random-state*
(
make-random-state
t
))
(
let
(
anything-changed?
)
(
setq
anything-changed?
(
glisp:set-settings
*settings*
))
(
start-gwl
)
anything-changed?
)))
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