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

Merge branch 'release/1598' into devo

parents c96c0840 7806cef5
......@@ -95,6 +95,13 @@ n:arguments (point \"2D point\")"
(defun %get-w% (point)
(coerce (svref point 3) 'single-float))
(defsetf get-u (vector)(value) `(setf (svref ,vector 0) (coerce ,value 'double-float)))
(defsetf get-v (vector)(value) `(setf (svref ,vector 1) (coerce ,value 'double-float)))
(defsetf get-w (vector)(value) `(setf (svref ,vector 3) (coerce ,value 'double-float)))
(defsetf get-x (vector)(value) `(setf (svref ,vector 0) (coerce ,value 'double-float)))
(defsetf get-y (vector)(value) `(setf (svref ,vector 1) (coerce ,value 'double-float)))
(defsetf get-z (vector)(value) `(setf (svref ,vector 2) (coerce ,value 'double-float)))
(defun subtract-vectors (v1 v2)
"Vector. Return a new vector, the result of affine vector subtraction.
......@@ -39,7 +39,7 @@
(do ()(nil) (sleep (* minutes 60))
(when debug? (format t "~&Reaper waking up...~%"))
(when *reap-expired-sessions?*
(maphash #'(lambda(key val) (declare (ignore key))
......@@ -50,7 +50,7 @@
:height (the box-height)
:sequence (:matrix :longitudinal (the rows)
:lateral (the columns)))))
(in-package :gdl-user)
(define-object box-container-sample (box-container)
:input-slots ((box-length 10 :settable)
Supports Markdown
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