changed project name from cl-forth to kurt
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
(in-package :cl-forth)
|
||||
(in-package :kurt)
|
||||
|
||||
(defun drop-file-type (file &key (returns :string))
|
||||
(let* ((file-str (namestring file))
|
||||
@@ -73,7 +73,7 @@
|
||||
(ignore-errors
|
||||
(run-test file :target target))))
|
||||
(remove-if-not (lambda (file)
|
||||
(string= "lorth" (pathname-type file)))
|
||||
(string= "kurt" (pathname-type file)))
|
||||
(cl-fad:list-directory
|
||||
(from-root "test"))))
|
||||
counting (eq t success?) into succs
|
||||
|
||||
Reference in New Issue
Block a user