From b3c0b56ac7680ef81789e9d2d91f3ea290159c46 Mon Sep 17 00:00:00 2001 From: espen Date: Mon, 9 Feb 2009 11:50:22 +0000 Subject: [PATCH] New function CLISP< --- tools/config.lisp | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/tools/config.lisp b/tools/config.lisp index 472d02a..4b3341b 100644 --- a/tools/config.lisp +++ b/tools/config.lisp @@ -4,7 +4,7 @@ (:import-from #:sb-int #:featurep) (:export #:pkg-cflags #:pkg-libs #:pkg-exists-p #:pkg-version #:pkg-variable #:pkg-libdir #:tmpname) - (:export #:featurep #:sbcl>= #:sbcl< #:clisp>=)) + (:export #:featurep #:sbcl>= #:sbcl< #:clisp>= #:clisp<)) (in-package #:pkg-config) @@ -185,9 +185,15 @@ (multiple-value-bind (major minor) (clisp-version) (or (> major req-major) - (and (= major req-major) (> minor req-minor)))))) + (and (= major req-major) (> minor req-minor))))) + (defun clisp< (req-major req-minor) + (not (clisp>= req-major req-minor)))) #-clisp -(defun clisp>= (req-major req-minor) - (declare (ignore req-major req-minor)) - nil) +(progn + (defun clisp>= (req-major req-minor) + (declare (ignore req-major req-minor)) + nil) + (defun clisp< (req-major req-minor) + (declare (ignore req-major req-minor)) + nil)) -- 2.11.0