[bknr-cvs] hans changed deployed/bos/

[BKNR Commits]

Revision: 4582
Author: hans
URL: http://bknr.net/trac/changeset/4582

fixes for sbcl
U   deployed/bos/bknr/web/src/web/menu.lisp
U   deployed/bos/thirdparty/kmrcl-1.97/impl.lisp

Modified: deployed/bos/bknr/web/src/web/menu.lisp
===================================================================
--- deployed/bos/bknr/web/src/web/menu.lisp	2010-08-22 19:33:01 UTC (rev 4581)
+++ deployed/bos/bknr/web/src/web/menu.lisp	2010-08-24 04:20:16 UTC (rev 4582)
@@ -43,8 +43,7 @@
   (declare (ignore menu-name))
   (let* ((menu (bknr.impex:parse-xml-file
                 #+cmu (ext:unix-namestring (merge-pathnames config *default-pathname-defaults*))
-                #+sbcl (sb-int:unix-namestring (merge-pathnames config *default-pathname-defaults*))
-                #-(or cmu sbcl) (namestring (probe-file (merge-pathnames config *default-pathname-defaults*)))
+                #-cmu (namestring (probe-file (merge-pathnames config *default-pathname-defaults*)))
                 *menu-def-classes*)))
     (html
      ((:div :class container-class)

Modified: deployed/bos/thirdparty/kmrcl-1.97/impl.lisp
===================================================================
--- deployed/bos/thirdparty/kmrcl-1.97/impl.lisp	2010-08-22 19:33:01 UTC (rev 4581)
+++ deployed/bos/thirdparty/kmrcl-1.97/impl.lisp	2010-08-24 04:20:16 UTC (rev 4582)
@@ -36,7 +36,7 @@
                     :name nil :type nil :version nil :defaults path)
           path))))
 
-
+#+(or)
 (defun probe-directory (filename &key (error-if-does-not-exist nil))
   (let* ((path (canonicalize-directory-name filename))
          (probe