(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*)
(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))))))