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

edicl · Feb 18, 2013 · 04dddff · 04dddff
1 parent d868a44
commit 04dddff
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/temporary-files.lisp b/temporary-files.lisp
@@ -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")))))