File: logical-hostnames.lisp

package info (click to toggle)
cl-ssl 0.2+cvs.2004.01.05
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 128 kB
  • ctags: 124
  • sloc: lisp: 1,038; makefile: 66; sh: 28
file content (17 lines) | stat: -rw-r--r-- 576 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: CL-USER; -*-

(in-package "CL-USER")


(setf (logical-pathname-translations "CL-SSL")
      `(("*.*.*" 
         ;; e.g., "/home/jsc/lisp/src/aserve/acl-compat-lw/cl-ssl/" 
         ,(merge-pathnames 
           (make-pathname :host (pathname-host *load-truename*)
                          :directory '(:relative "cl-ssl")
                          :name    :wild
                          :type    :wild
                          :version :wild
;                          :case :common
)
           *load-truename*))))