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)