Commit 609ad61c authored by Dave Cooper's avatar Dave Cooper

added *allow-nil-list-of-numbers?* for back-compatibility, added...

added *allow-nil-list-of-numbers?* for back-compatibility, added return(false); at end of gdl-ajax-call, updated training slides.
parent 16eb05f4
......@@ -367,3 +367,8 @@ set to nil to improve memory performance.")
(defparameter *with-format-element-type* nil
"Element-type. The default for the :element-type format-slot
for the base format. Defaults to nil. Needs a better default.")
(defparameter *allow-nil-list-of-numbers?* nil "Boolean. If set to t,
allows list-of-numbers function to return nil instead of error
when num1 is greater than num2 with positive increment or vice-versa.
Default is nil.")
......@@ -136,8 +136,10 @@ was contributed by Reinier van Dijk.
(tolerance (/ increment 10)) \"Number. tolerance for increment.\")"
(cond ((zerop increment) (error "increment of zero is not allowed"))
((and (< increment 0.0) (> num2 num1)) (error "increment is negative, while difference between num2 and num1 is positive."))
((and (> increment 0.0) (< num2 num1)) (error "increment is positive, while difference between num2 and num1 is negative."))
((and (< increment 0.0) (> num2 num1))
(unless *allow-nil-list-of-numbers?* (error "increment is negative, while difference between num2 and num1 is positive.")))
((and (> increment 0.0) (< num2 num1))
(unless *allow-nil-list-of-numbers?* (error "increment is positive, while difference between num2 and num1 is negative.")))
(t (let ((predicate (if (> increment 0.0) #'>= #'<=))
(result-list nil))
(do ((num num1 (+ num increment)))
......
......@@ -193,6 +193,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:list-elements
#:list-hash
#:list-of-numbers
#:*allow-nil-list-of-numbers?*
#:list-of-n-numbers
#:lookup-color
#:load-glime
......
;;
;; Copyright 2002, 2009 Genworks International and Genworks BV
;; Copyright 2002, 2009 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
......
......@@ -370,10 +370,8 @@
((:div :id "copyright")
(when gwl:*developing?*
(the write-development-links))
"Copyright &copy; 2012 "
"Copyright &copy; 2016 "
((:a :href "http://www.genworks.com") "Genworks" (:sup "&reg;") "International")
" and "
((:a :href "http://home.tudelft.nl/en/") "Delft University of Technology")
"."
)))))
......
......@@ -468,6 +468,7 @@ are no longer supported by glisp:match-regexp.~%"))
#+nil
(defun process-run-function (name-or-options preset-function &rest args)
#-allegro (when args (error "args not supported for glisp:process-run-function on ~a.~%" (lisp-implementation-type)))
(apply #+allegro #'mp:process-run-function
......
......@@ -409,7 +409,7 @@ running the Javascript interpreter to evaluate (the js-to-eval), if any.
js-vals (glisp:replace-regexp js-vals "\\" "\\\\\\\\"))
(format nil "gdlAjax(~a, 'args=~a~a~a, ~a);"
(format nil "gdlAjax(~a, 'args=~a~a~a, ~a); return(false);"
(if null-event? "null" "event") string-1 string-2 (or js-vals "") string-3)))
......
......@@ -26,7 +26,7 @@ To use:
(define-object container ()
:objects ((remote-1 :type 'remote-object
:remote-type 'remote-1
:port 9001
:port 9003
:host "localhost")))
......@@ -35,4 +35,4 @@ To use:
((slot-1 "one")))
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq *compile-for-dgdl?* nil))
\ No newline at end of file
(setq *compile-for-dgdl?* nil))
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