0.6.10.13:

[sbcl.git] / src / code / deftypes-for-target.lisp

diff --git a/src/code/deftypes-for-target.lisp b/src/code/deftypes-for-target.lisp
index f42b20b..20f9a7a 100644 (file)
--- a/src/code/deftypes-for-target.lisp
+++ b/src/code/deftypes-for-target.lisp
@@ -120,9 +120,11 @@
 ;;; a thing legal in places where we want the name of a file
 (sb!xc:deftype filename () '(or string pathname))
 
-;;; a legal arg to pathname functions
+;;; legal args to pathname functions
 (sb!xc:deftype pathname-designator ()
   '(or string pathname stream))
+(sb!xc:deftype logical-host-designator ()
+  '(or host string))
 
 ;;; a thing returned by the irrational functions. We assume that they
 ;;; never compute a rational result.