Index: /trunk/ccl/level-1/l1-files.lisp
===================================================================
--- /trunk/ccl/level-1/l1-files.lisp	(revision 395)
+++ /trunk/ccl/level-1/l1-files.lisp	(revision 396)
@@ -191,5 +191,4 @@
 
 
-(defun logical-pathname-p (thing) (istruct-typep thing 'logical-pathname))
 
 (defun pathname-host (thing)  ; redefined later in this file