Commit 383bed65 authored by Dave Cooper's avatar Dave Cooper

next step in devo

parent 9238d406
......@@ -452,6 +452,8 @@ If you specify :part-symbol-supplied, do not specify :instance-supplied."))
((:td :align :left)
(format *html-stream* "~{~a~^, ~}"
trickle-down-slots)))))))
(mapc #'(lambda (section)
(let ((values (the-object section message-and-remarks)))
......@@ -552,7 +554,7 @@ If you specify :part-symbol-supplied, do not specify :instance-supplied."))
((null val))
(write-byte val reply-stream))))))
(when (zerop return-value)
(when (or (null return-value) (zerop return-value))
(delete-file pdf-file)
(delete-file image-file)
(delete-file lisp-file)
......@@ -772,8 +774,10 @@ If you specify :part-symbol-supplied, do not specify :instance-supplied."))
(let ((note (with-cl-who-string ()
"from "
(let ((page-object (gethash (the remark-mixin) (the index-ht))))
(htm ((:a :href (the-object page-object url))
(str (the remark-mixin))))))))
(if page-object
(htm ((:a :href (the-object page-object url))
(str (the remark-mixin))))
(htm "unknown"))))))
(print-variables note)
note)))
......
This diff is collapsed.
......@@ -292,7 +292,7 @@
#+allegro
(rplacd (assoc 'tpl::*saved-package*
tpl:*default-lisp-listener-bindings*) (find-package :gdl-user))
#+allegro (top-level:do-command "package" "gdl-user"))
#+allegro (top-level:do-command "package" :gdl-user))
(defun set-defpackage-behavior ()
#+lispworks (setq hcl:*handle-existing-defpackage* (list :add))
......
......@@ -310,7 +310,7 @@
(gdl-devo (get-executable 'agdl8)))
(defun gdle () (interactive)
(gdl-devo (get-executable 'gdl)))
(gdl-devo (get-executable 'gdle)))
(defun gdl-devo (executable)
(interactive)
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -23,6 +23,7 @@
(defun pin-value-to-range (value min max &key (lt-test #'<) (gt-test #'>))
#+nil
"Number. Returns a value pinned to the range described by the min and max.
If the input value is out of range, a warning is issued.
......@@ -30,8 +31,8 @@ If the input value is out of range, a warning is issued.
min \"minimum end of allowed range\"
max \"maximum end of allowed range\")
:&key ((lt-test #'&lt;) \"The test applied for less-than comparison\"
(gt-test #'&gt;) \"The test applied for greater-than comparison\")
:&key ((lt-test #'<) \"The test applied for less-than comparison\"
(gt-test #'>) \"The test applied for greater-than comparison\")
"
(cond ((funcall lt-test value min)
(warn "Value ~a is less than minimum allowed ~a, pinning to ~a.~%"
......
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