Commit 55d494a2 authored by Dave Cooper's avatar Dave Cooper
Browse files

updated def of wmd.

parent 7a5808d5
*~
*.?x64fsl
*.fasl
bin/
system-index.txt
.DS_Store
......@@ -48,13 +48,7 @@
publish-args)))
(defmacro wmd (string)
`(str
(with-output-to-string (ss)
(markdown:markdown ,string :stream ss))))
(eval-when (:compile-toplevel :load-toplevel :execute)
(export 'wmd :gwl))
......@@ -227,6 +221,8 @@
(declare (ignore check))
(if error (the-object respondent (sanity-error error))))))))))))))))
;;
;; FLAG -- Then Tweaked.
;;
;; Merged into devo 2020-08-17.
;;
......@@ -235,7 +231,7 @@
(#+allegro
excl:without-redefinition-warnings #-allegro progn
(defun start-session-reaper (&key (minutes 20) (debug? t) (listeners 20) extra-functions restart-server?)
(declare (ignore listeners))
;;(declare (ignore listeners))
(format t "~2%Lauching Expired Session Reaper to awaken and run every ~a minute~:p~2%" minutes)
(glisp:process-run-function
"GWL Session Reaper"
......@@ -360,9 +356,29 @@ package-qualified object name\")
(t (setf (gethash iid gwl:*instance-hash-table*) (list instance))
iid)))))
#+nil
(defmacro wmd (string)
`(str
(with-output-to-string (ss)
(markdown:markdown ,string :stream ss))))
#+nil
(eval-when (:compile-toplevel :load-toplevel :execute)
(export 'wmd :gwl))
;;
;; FLAG -- Tweaked.
;;
(#+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
(defmacro wmd (string)
`(str
(with-output-to-string (ss)
......
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