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
c2c6362d
Commit
c2c6362d
authored
Oct 06, 2020
by
CD
Browse files
Testing out Physio
parent
654aafdf
Changes
1
Hide whitespace changes
Inline
Side-by-side
user-loads/Physiology_thread.lisp
View file @
c2c6362d
...
...
@@ -67,6 +67,7 @@
(
defvar
*HumModInStream*
nil
)
;;;Custom Physiology Function Section
;;HumMod Directory variable
(
print
(
namestring
*LOAD-TRUENAME*
))
#+
:windows
(
defvar
*HumModDir*
(
subseq
(
namestring
*LOAD-TRUENAME*
)
0
(
search
(
file-namestring
*LOAD-TRUENAME*
)
(
namestring
*LOAD-TRUENAME*
))))
#-
:windows
(
defvar
*HumModDir*
(
substitute
#\\
#\/
(
subseq
(
namestring
*LOAD-TRUENAME*
)
0
(
search
(
file-namestring
*LOAD-TRUENAME*
)
(
namestring
*LOAD-TRUENAME*
)))
:from-end
t
:count
1
))
...
...
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