Commit c2c6362d authored by CD's avatar CD
Browse files

Testing out Physio

parent 654aafdf
......@@ -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))
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