Permalink
Browse files

Fix for LispWorks (less specific handler-case) (fixes #5)

  • Loading branch information...
1 parent d868a44 commit 04dddff1796f2580ff9cbfd1901c1724c01a8edf @hanshuebner hanshuebner committed Feb 18, 2013
Showing with 1 addition and 2 deletions.
  1. +1 −2 temporary-files.lisp
View
@@ -64,8 +64,7 @@
(handler-case
(logical-pathname-translations "TEMPORARY-FILES")
- (#-clisp type-error
- #+clisp simple-error ()
+ (error ()
(alexandria:if-let (default-temporary-directory (get-default-temporary-directory))
(setf (logical-pathname-translations "TEMPORARY-FILES") `(("*.*.*" ,default-temporary-directory)))
(warn "could not automatically determine a default mapping for TEMPORARY-FILES")))))

0 comments on commit 04dddff

Please sign in to comment.