diff options
Diffstat (limited to 'lisp/klatre/klatre.lisp')
| -rw-r--r-- | lisp/klatre/klatre.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/klatre/klatre.lisp b/lisp/klatre/klatre.lisp index 0b986ac251..79c7259752 100644 --- a/lisp/klatre/klatre.lisp +++ b/lisp/klatre/klatre.lisp @@ -105,7 +105,8 @@ separated by SEP." "Attempt to parse STR as an integer, returning nil if it is invalid." (check-type str string) (handler-case (parse-integer str) - (sb-int:simple-parse-error (_) (declare (ignore _)) nil))) + (#+sbcl sb-int:simple-parse-error + #-sbcl parse-error (_) (declare (ignore _)) nil))) ;;; ;;; Function utilities |