SAST-ACT-R-Project/set-logical.lisp at main · Logan84/SAST-ACT-R-Project · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(setf (logical-pathname-translations "ACT-R")
  `(("**;*.*" ,(namestring (merge-pathnames "**/*.*" *load-truename*)))))

(setf (logical-pathname-translations "ACT-R-support")
  `(("**;*.*" ,(namestring (merge-pathnames "**/*.*" (translate-logical-pathname "ACT-R:support;"))))))

(defun load-patch-files ()
  (let ((d (directory (translate-logical-pathname "ACT-R:patches;*.lisp"))))
    (when d
      (format t "~%######### Loading patch files #########~%")
      (dolist (file (sort d 'string< :key (lambda (x) (string (pathname-name x)))))
        (format t "  Loading: ~s~%" file)
        (compile-and-load file))
      (format t "~%######### Patch files loaded #########~%"))))

(defun load-user-files ()
  (let ((d (directory (translate-logical-pathname "ACT-R:user-loads;*.lisp"))))
    (when d
      (format t "~%######### Loading user files #########~%")
      (dolist (file (sort d 'string< :key (lambda (x) (string (pathname-name x)))))
        (format t "  Loading: ~s~%" file)
        (compile-and-load file))
      (format t "~%######### User files loaded #########~%"))))