diff options
Diffstat (limited to 'src/lisp')
-rw-r--r-- | src/lisp/core.lisp.in | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index aecca91e..eaba3a3d 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -89,6 +89,8 @@ "compileLispHandler" "Option" + "pathBasename" + "IMPORT-MODULE" "CONCAT" )) @@ -716,6 +718,10 @@ (concatenate 'string dir "/")))) +;; Return the basename (without extension) of a file. +(defun |pathBasename| (file) + (pathname-name file)) + ;; ;; -*- Modules in OpenAxiom -*- ;; @@ -804,6 +810,10 @@ (eval-when (:load-toplevel :execute) (pushnew #'shoe-provide-module sb-ext:*module-provider-functions*)) +;; +;; -*- Native Datatype correspondance -*- +;; + ;; native data type translation table (defconstant |$NativeTypeTable| '((|void| . @void_type@) |