|
Revision 1726, 0.6 kB
(checked in by hans, 3 years ago)
|
Add slightly hacked versions of trivial-sockets and trivial-http
|
| Line | |
|---|
| 1 |
;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: CL-USER; -*- |
|---|
| 2 |
|
|---|
| 3 |
(in-package "CL-USER") |
|---|
| 4 |
|
|---|
| 5 |
|
|---|
| 6 |
(setf (logical-pathname-translations "CL-SSL") |
|---|
| 7 |
`(("*.*.*" |
|---|
| 8 |
;; e.g., "/home/jsc/lisp/src/aserve/acl-compat-lw/cl-ssl/" |
|---|
| 9 |
,(merge-pathnames |
|---|
| 10 |
(make-pathname :host (pathname-host *load-truename*) |
|---|
| 11 |
:directory '(:relative "cl-ssl") |
|---|
| 12 |
:name :wild |
|---|
| 13 |
:type :wild |
|---|
| 14 |
:version :wild |
|---|
| 15 |
; :case :common |
|---|
| 16 |
) |
|---|
| 17 |
*load-truename*)))) |
|---|
