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