mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 20:31:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

logical-pathname-translations: signal error if pathname not defined

Browse source 
If logical pathname wasn't defined yet, signal type error. Fixes #102.

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-08-05 14:03:25 +02:00
parent 1a3aecc2d6
commit 63e7187866
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
CHANGELOG
View file

@ -87,6 +87,9 @@
- Format float bug, when width and fdigits aren't set, but k is
- `logical-pathname-translations' throws an error if logical pathname
wasn't defined yet. Until now it non-conformingly returned nil
- Other minor tweaks
* 15.3.7 changes since 15.2.21

9
src/lsp/mislib.lsp
View file

@ -13,7 +13,14 @@
(in-package "SYSTEM")
(defun logical-pathname-translations (p) (si:pathname-translations p))
(defun logical-pathname-translations (p)
(or (si:pathname-translations p)
(error 'simple-type-error
:datum p
:expected-type 'logical-pathname
:format-control "logical host not yet defined: ~S"
:format-arguments (list p))))
(defsetf logical-pathname-translations si:pathname-translations)
(defun load-logical-pathname-translations (host)