From: Alexey D. <ade...@us...> - 2003-10-09 06:41:58
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1:/tmp/cvs-serv16622/src/code Modified Files: filesys.lisp Log Message: 0.8.4.11: * Fix bug found by WHN and Paul Dietz: do not replace optional dispatch with an entry point in a block to be deleted. Index: filesys.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/filesys.lisp,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- filesys.lisp 29 Mar 2003 13:03:41 -0000 1.40 +++ filesys.lisp 9 Oct 2003 06:41:51 -0000 1.41 @@ -713,7 +713,6 @@ :format-arguments (list (namestring pathname)))) result)) -;;; If PATHNAME exists, return its truename, otherwise NIL. (defun probe-file (pathname) #!+sb-doc "Return a pathname which is the truename of the file if it exists, or NIL |