Commit ab29798f authored by Dave Cooper's avatar Dave Cooper
Browse files

reverted gwl:wmd macro definition to correct version.

parent 55d494a2
......@@ -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?)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment