Commit 2e8a2e96 authored by Dave Cooper's avatar Dave Cooper

regenerated documentation images

parent 11d58265
......@@ -23,7 +23,7 @@
(syntax-error name token "Valid Grammar" grammar))))
(defun check-input-slots (name form)
":input-slots grammar:
"Void. :input-slots grammar:
<form> = :input-slots (<token>*)
<token> = <string> | <symbol> | (<string>* <symbol> <expression>+ <behavior>*)
......@@ -54,7 +54,7 @@
))))
(defun check-computed-slots (name form)
":computed-slots grammar:
"Void. :computed-slots grammar:
<form> = :computed-slots (<token>*)
<token> = <string> | (<string>* <symbol> <expression>+ <behavior>+)
......@@ -86,7 +86,7 @@
))))
(defun check-objects (name form &optional (hidden nil))
":(hidden-)objects grammar:
"Void. :hidden-objects and :objects grammar:
<form> = (hidden-):objects (<token>*)
<token> = (<string>* <symbol> <rule>*)
......
......@@ -67,7 +67,7 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(defun start-gwl (&key (port *aserve-port*) (listeners *aserve-listeners*)
(external-format :utf8-base))
(net.aserve:shutdown)
(net.aserve:shutdown :server net.aserve:*wserver*)
(let ((wait-time 1))
(block :outer
(do () (nil)
......@@ -78,8 +78,9 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(format t (if (> wait-time 1) "~&Retrying AllegroServe on ~a...~%"
"~&Trying to start AllegroServe on ~a...~%") port)
(if (ignore-errors
(net.aserve:start :port port :listeners listeners
#-mswindows :external-format #-mswindows external-format))
(setq net.aserve:*wserver*
(net.aserve:start :port port :listeners listeners ;; :server :new
#-mswindows :external-format #-mswindows external-format)))
(return-from :outer port)
(progn (sleep (random wait-time)) (return-from :inner))))
(incf port))))
......
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