From 17d9d187c619a6617cd4a7f256326fca68893454 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Sun, 27 May 2001 15:15:48 +0000 Subject: [PATCH] Fix defknown for parse-namestring to allow STRING as a type for optional :HOST argument. --- compiler/fndb.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 9df662408..0596accfd 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.93 2001/04/12 19:45:57 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.94 2001/05/27 15:15:48 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -944,7 +944,7 @@ (defknown truename (pathnamelike) pathname ()) (defknown parse-namestring - (pathnamelike &optional pathname-host pathnamelike + (pathnamelike &optional (or string pathname-host) pathnamelike &key (:start index) (:end sequence-end) (:junk-allowed t)) (values (or pathname null) sequence-end) ()) -- GitLab