Exporting all symbols for raw memory access

[clg] / tools / config.lisp

diff --git a/tools/config.lisp b/tools/config.lisp
index 04276fe89704ac02e08c48b68627137facd85771..c38b0347c07f1d717b85533c53f6e8c20f22788e 100644 (file)
--- a/tools/config.lisp
+++ b/tools/config.lisp
@@ -122,9 +122,9 @@ (defun pkg-libdir (package)
 
 (defun |#?-reader| (stream subchar arg)
   (declare (ignore subchar arg))
 
 (defun |#?-reader| (stream subchar arg)
   (declare (ignore subchar arg))

-  (let ((not-p (when (char= (peek-char nil stream) #\-)
-                (read-char stream)))
-       (conditional (read stream t nil t)))
+  (let* ((not-p (when (char= (peek-char nil stream) #\-)
+                 (read-char stream)))
+        (conditional (read stream t nil t)))

     (cond
      (*read-suppress* (read stream t nil t))
      ((not *read-eval*)
     (cond
      (*read-suppress* (read stream t nil t))
      ((not *read-eval*)


@@ -155,8 +155,7 @@   (defun sbcl>= (major minor micro &optional patch)
       (or 
        (> %major major)
        (and (= %major major) (> %minor minor))
       (or 
        (> %major major)
        (and (= %major major) (> %minor minor))

-       (and (= %major major) (= %minor minor) (>= %micro micro))
-       (and (= %major major) (= %minor minor) (>= %micro micro))
+       (and (= %major major) (= %minor minor) (> %micro micro))

        (and 
        (= %major major) (= %minor minor) (= %micro micro)
        (>= (or %patch 0) (or patch 0))))))
        (and 
        (= %major major) (= %minor minor) (= %micro micro)
        (>= (or %patch 0) (or patch 0))))))