X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdeftypes-for-target.lisp;h=20f9a7af59ccbd41de23de65982da1c7ce9e5ec4;hb=c9e11f1e55e5e19f35c931af8180a2cd075ab5f5;hp=59149cc8255d5de5ed9f44fa2bc2cd9d4122706d;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/deftypes-for-target.lisp b/src/code/deftypes-for-target.lisp
index 59149cc..20f9a7a 100644
--- a/src/code/deftypes-for-target.lisp
+++ b/src/code/deftypes-for-target.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!KERNEL")
-
-(file-comment
-  "$Header$")
 
 ;;;; Now that DEFTYPE is set up, any pending requests for it can
 ;;;; be honored.
@@ -123,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.