[bknr-cvs] hans changed trunk/bknr/web/src/web/menu.lisp

[BKNR Commits]

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

Remove unix-namestring invocation from SBCL variant.

U   trunk/bknr/web/src/web/menu.lisp

Modified: trunk/bknr/web/src/web/menu.lisp
===================================================================
--- trunk/bknr/web/src/web/menu.lisp	2010-05-19 20:00:13 UTC (rev 4545)
+++ trunk/bknr/web/src/web/menu.lisp	2010-05-23 05:11:46 UTC (rev 4546)
@@ -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)