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