Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
a2ef07ab
Commit
a2ef07ab
authored
Dec 16, 2022
by
Dave Cooper
Browse files
Merge branch 'release/1598' into devo
parents
c96c0840
7806cef5
Changes
3
Hide whitespace changes
Inline
Side-by-side
geom-base/prereqs/source/utilities.lisp
View file @
a2ef07ab
...
...
@@ -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.
...
...
gwl/gwl-session/source/functions.lisp
View file @
a2ef07ab
...
...
@@ -39,7 +39,7 @@
(
do
()(
nil
)
(
sleep
(
*
minutes
60
))
(
when
debug?
(
format
t
"~&Reaper waking up...~%"
))
(
clear-nil-sessions
)
;;
(clear-nil-sessions)
(
when
*reap-expired-sessions?*
(
maphash
#'
(
lambda
(
key
val
)
(
declare
(
ignore
key
))
...
...
regression/geom-base/source/box-matrix.lisp
View file @
a2ef07ab
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment