casa-mp-base

--- dev/main.lisp   2007-12-13 19:10:17.000000000 -0500

+++ main.lisp   2008-02-14 19:38:49.000000000 -0500

@@ -118,7 +118,7 @@

                     (version (maybe-warn (lisp-version-string)

                                          "Don't know how to get Lisp ~

                                           implementation version.")))

-                (format nil "~(~@{~a~^-~}~)" lisp version os arch))))))

+                (format nil "~(~@{~a~^-~}~)" lisp os arch))))))

 (defun pathname-prefix-p (prefix pathname) 

   (not (equal (enough-namestring pathname prefix) (namestring pathname)))) 

​