-;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
#+clisp "clisp"
#+cmu "cmucl"
#+sbcl "sbcl"
- #+corman "corman"
+ #+cormanlisp "corman"
#+mcl "mcl"
#+openmcl "openmcl"
- #-(or allegro lispworks clisp cmu sbcl corman mcl openmcl) "unknown")
+ #-(or allegro lispworks clisp cmu sbcl cormanlisp mcl openmcl) "unknown")
(defun set-logical-host-for-pathname (host base-pathname)
(setf (logical-pathname-translations host)