- ("lisp-temp" . "lmp")))
-
-(defun file-names (pathname)
- (if (or (< 8 (length (pathname-name pathname)))
- (< 3 (length (pathname-type pathname))))
- (let ((short-name (let ((name (pathname-name pathname)))
- (if (< 8 (length name))
- (subseq name 0 8)
- name)))
- (short-type (let ((type (pathname-type pathname)))
- (if (< 3 (length type))
- (or (cdr (assoc type *pathname-type-abbrevs* :test #'equalp))
- (error "No abbreviation for type: ~A" type))
- type))))
- (list "Name" (if short-type
- (format nil "~A.~A" short-name short-type)
- short-name)
- "LongName" (file-namestring pathname)))
- (list "Name" (file-namestring pathname))))