Permalink
Browse files

remove extra ignore

  • Loading branch information...
1 parent a9c0b10 commit 5c7d915ed47a96eced8fc858065f51e80e9c1fb7 @hanshuebner committed Apr 23, 2012
Showing with 1 addition and 2 deletions.
  1. +1 −2 temporary-file.lisp
View
@@ -71,8 +71,7 @@
(handler-case
(logical-pathname-translations "TEMPORARY-FILES")
(#-clisp type-error
- #+clisp simple-error (e)
- (declare (ignore e))
+ #+clisp simple-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 5c7d915

Please sign in to comment.