Skip to content

GitLab

Commit b94e8e8d authored by Chris Dancy's avatar Chris Dancy
Browse files

Change to test something with linix Phys Module

parent 9631c894
Hide whitespace changes
Inline Side-by-side
user-loads/Physiology_thread.lisp
View file @ b94e8e8d
...@@ -68,10 +68,10 @@ ...@@ -68,10 +68,10 @@
;;;Custom Physiology Function Section ;;;Custom Physiology Function Section
;;HumMod Directory variable ;;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*))))
#+:linux (defvar *HumModDir* (subseq (namestring *LOAD-TRUENAME*) 0 (search (file-namestring *LOAD-TRUENAME*) (namestring *LOAD-TRUENAME*)))) #+:linux (defvar *HumModDir* (substitute #\\ #\/ (subseq (namestring *LOAD-TRUENAME*) 0 (search (file-namestring *LOAD-TRUENAME*) (namestring *LOAD-TRUENAME*))) :from-end t :count 1));(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)) #+:darwin (defvar *HumModDir* (substitute #\\ #\/ (subseq (namestring *LOAD-TRUENAME*) 0 (search (file-namestring *LOAD-TRUENAME*) (namestring *LOAD-TRUENAME*))) :from-end t :count 1))
(format t "+++++++++~&~s~&++++++----+++++" (substitute #\ #\/ (subseq (namestring *LOAD-TRUENAME*) 0 (search (file-namestring *LOAD-TRUENAME*) (namestring *LOAD-TRUENAME*))) :from-end t :count 1)) ;(format t "+++++++++~&~s~&++++++----+++++" (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 ;;We use this so we have a reference to the next update-event that is scheduled to be run
(defvar *nextUpdateEvent* nil) (defvar *nextUpdateEvent* nil)
......
Markdown is supported
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