Remove duplicate junk.

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@)