New function CLISP<

[clg] / tools / config.lisp

diff --git a/tools/config.lisp b/tools/config.lisp
index 472d02a5ca0e68f2a191e7429e4c28ac604aa915..4b3341b08c20212d86afb8a6aee1e102aaca0f6f 100644 (file)
--- a/tools/config.lisp
+++ b/tools/config.lisp
@@ -4,7 +4,7 @@ (defpackage #:pkg-config
   (:import-from #:sb-int #:featurep)
   (:export #:pkg-cflags #:pkg-libs #:pkg-exists-p #:pkg-version
            #:pkg-variable #:pkg-libdir #:tmpname)
   (: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)
 
 
 (in-package #:pkg-config)
 


@@ -185,9 +185,15 @@   (defun clisp>= (req-major req-minor)
     (multiple-value-bind (major minor) (clisp-version)      
       (or 
        (> major req-major)
     (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
 
 #-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))