diff --git a/uiop/common-lisp.lisp b/uiop/common-lisp.lisp index 46cfe09fa1c08c7a6503b457b96ecb02d4998bab..49cb800c10dee0fb8525eec42e5c23a285cdae16 100644 --- a/uiop/common-lisp.lisp +++ b/uiop/common-lisp.lisp @@ -128,6 +128,17 @@ (scl:send stream :string-out sequence start end) sequence))) +#+lispworks +(eval-when (:load-toplevel :compile-toplevel :execute) + ;; lispworks 3 and earlier cannot be checked for so we always assume + ;; at least version 4 + (unless (member :lispworks4 *features*) + (pushnew :lispworks5+ *features*) + (unless (member :lispworks5 *features*) + (pushnew :lispworks6+ *features*) + (unless (member :lispworks6 *features*) + (pushnew :lispworks7+ *features*))))) + #.(or #+mcl ;; the #$ doesn't work on other lisps, even protected by #+mcl, so we use this trick (read-from-string "(eval-when (:load-toplevel :compile-toplevel :execute)