+
+#+clisp
+(progn
+ (defun clisp-version ()
+ (let* ((dot (position #\. (lisp-implementation-version))))
+ (values
+ (parse-integer (lisp-implementation-version) :end dot)
+ (parse-integer (lisp-implementation-version) :start (1+ dot) :junk-allowed t))))
+ (defun clisp>= (req-major req-minor)
+ (multiple-value-bind (major minor) (clisp-version)
+ (or
+ (> major req-major)
+ (and (= major req-major) (> minor req-minor))))))
+
+#-clisp
+(defun clisp>= (req-major req-minor)
+ (declare (ignore req-major req-minor))
+ nil)