Export a few more utilities, but not string-suffix-p.

diff --git a/package.lisp b/package.lisp
index d8be464..36fa2d8 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -10,7 +10,7 @@
       length=n-p
       featurep
       remove-keys remove-keyword
-      first-char last-char string-suffix-p
+      first-char last-char ;; string-suffix-p
       directory-pathname-p ensure-directory-pathname
       absolute-pathname-p ensure-pathname-absolute pathname-root
       getenv getenv-pathname getenv-pathnames
@@ -20,6 +20,11 @@
       make-pathname-component-logical make-pathname-logical
       merge-pathnames* coerce-pathname subpathname subpathname*
       pathname-directory-pathname pathname-parent-directory-pathname
+      pathname-parent-directory-pathname
+      os-unix-p os-windows-p
+      user-homedir hostname implementation-identifier
+      implementation-type
+      lisp-version-string operating-system architecture
       read-file-forms
       resolve-symlinks truenamize
       split-string
@@ -29,7 +34,6 @@
       *wild* *wild-file* *wild-directory* *wild-inferiors*
       *wild-path* wilden directorize-pathname-host-device)))
 
-
 (defpackage :asdf-utils
   (:use :common-lisp :asdf)
   (:import-from :asdf . #.*asdf-utils-exports*)
@@ -37,4 +41,5 @@
 
 (defpackage :asdf-utils-no-alexandria
   (:use :common-lisp :asdf-utils)
-  (:export . #.(mapcar 'string (set-difference *asdf-utils-exports* '(appendf ends-with featurep)))))
+  (:export . #.(mapcar 'string (set-difference *asdf-utils-exports*
+                                               '(appendf ends-with featurep)))))