Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
AI-CogSci-Group
ACT-R_Phi
Commits
2c3fa5d6
Commit
2c3fa5d6
authored
Oct 07, 2020
by
CD
Browse files
Let's see if this fixes linux issue
parent
4814f6bc
Changes
1
Hide whitespace changes
Inline
Side-by-side
user-loads/Physiology_thread.lisp
View file @
2c3fa5d6
...
...
@@ -68,7 +68,8 @@
;;;Custom Physiology Function Section
;;HumMod Directory variable
#+
:windows
(
defvar
*HumModDir*
(
subseq
(
namestring
*LOAD-TRUENAME*
)
0
(
search
(
file-namestring
*LOAD-TRUENAME*
)
(
namestring
*LOAD-TRUENAME*
))))
#-
:windows
(
defvar
*HumModDir*
(
subseq
(
namestring
*LOAD-TRUENAME*
)
0
(
search
(
file-namestring
*LOAD-TRUENAME*
)
(
namestring
*LOAD-TRUENAME*
))))
;(defvar *HumModDir* (substitute #\\ #\/ (subseq (namestring *LOAD-TRUENAME*) 0 (search (file-namestring *LOAD-TRUENAME*) (namestring *LOAD-TRUENAME*))) :from-end t :count 1))
#-
:linux
(
defvar
*HumModDir*
(
subseq
(
namestring
*LOAD-TRUENAME*
)
0
(
search
(
file-namestring
*LOAD-TRUENAME*
)
(
namestring
*LOAD-TRUENAME*
))))
#+
:darwin
(
defvar
*HumModDir*
(
substitute
#\\
#\/
(
subseq
(
namestring
*LOAD-TRUENAME*
)
0
(
search
(
file-namestring
*LOAD-TRUENAME*
)
(
namestring
*LOAD-TRUENAME*
)))
:from-end
t
:count
1
))
;;We use this so we have a reference to the next update-event that is scheduled to be run
(
defvar
*nextUpdateEvent*
nil
)
...
...
@@ -335,7 +336,7 @@ t)
(
model
(
concatenate
'string
"\"<root><model>"
*HumModDir*
"HumMod.DES</model><pipeid>"
pipeID
"</pipeid></root>\""
))
(
hide-gui
"\"
Fals
e\""
)
(
hide-gui
"\"
Tru
e\""
)
(
non-gui-version
"\"False\""
)
(
activity-timeout
"60"
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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