Commit 36800ad1 authored by Jyrki Jaakkola's avatar Jyrki Jaakkola Committed by Nikodemus Siivola

make Alexandria work with readtable-case :INVERT

parent d92432dd
...@@ -1584,18 +1584,18 @@ ...@@ -1584,18 +1584,18 @@
:inherited) :inherited)
(deftest format-symbol.1 (deftest format-symbol.1
(let ((s (format-symbol nil "X-~D" 13))) (let ((s (format-symbol nil '#:x-~d 13)))
(list (symbol-package s) (list (symbol-package s)
(symbol-name s))) (string= (string '#:x-13) (symbol-name s))))
(nil "X-13")) (nil t))
(deftest format-symbol.2 (deftest format-symbol.2
(format-symbol :keyword "SYM-~A" :bolic) (format-symbol :keyword '#:sym-~a (string :bolic))
:sym-bolic) :sym-bolic)
(deftest format-symbol.3 (deftest format-symbol.3
(let ((*package* (find-package :cl))) (let ((*package* (find-package :cl)))
(format-symbol t "FIND-~A" 'package)) (format-symbol t '#:find-~a (string 'package)))
find-package) find-package)
(deftest make-keyword.1 (deftest make-keyword.1
...@@ -1657,12 +1657,12 @@ ...@@ -1657,12 +1657,12 @@
(macrolet (macrolet
((test (type numbers) ((test (type numbers)
`(deftest ,(format-symbol t "CDR5.~A" type) `(deftest ,(format-symbol t '#:cdr5.~a (string type))
(let ((numbers ,numbers)) (let ((numbers ,numbers))
(values (mapcar (of-type ',(format-symbol t "NEGATIVE-~A" type)) numbers) (values (mapcar (of-type ',(format-symbol t '#:negative-~a (string type))) numbers)
(mapcar (of-type ',(format-symbol t "NON-POSITIVE-~A" type)) numbers) (mapcar (of-type ',(format-symbol t '#:non-positive-~a (string type))) numbers)
(mapcar (of-type ',(format-symbol t "NON-NEGATIVE-~A" type)) numbers) (mapcar (of-type ',(format-symbol t '#:non-negative-~a (string type))) numbers)
(mapcar (of-type ',(format-symbol t "POSITIVE-~A" type)) numbers))) (mapcar (of-type ',(format-symbol t '#:positive-~a (string type))) numbers)))
(t t t nil nil nil nil) (t t t nil nil nil nil)
(t t t t nil nil nil) (t t t t nil nil nil)
(nil nil nil t t t t) (nil nil nil t t t t)
......
...@@ -34,10 +34,10 @@ ARRAY-DIMENSION-LIMIT." ...@@ -34,10 +34,10 @@ ARRAY-DIMENSION-LIMIT."
type type
(if (equal range-beg ''*) inf (ensure-car range-beg)) (if (equal range-beg ''*) inf (ensure-car range-beg))
(if (equal range-end ''*) inf (ensure-car range-end)))))) (if (equal range-end ''*) inf (ensure-car range-end))))))
(let* ((negative-name (make-subtype-name '#:negative-~A)) (let* ((negative-name (make-subtype-name '#:negative-~a))
(non-positive-name (make-subtype-name '#:non-positive-~A)) (non-positive-name (make-subtype-name '#:non-positive-~a))
(non-negative-name (make-subtype-name '#:non-negative-~A)) (non-negative-name (make-subtype-name '#:non-negative-~a))
(positive-name (make-subtype-name '#:positive-~A)) (positive-name (make-subtype-name '#:positive-~a))
(negative-p-name (make-predicate-name negative-name)) (negative-p-name (make-predicate-name negative-name))
(non-positive-p-name (make-predicate-name non-positive-name)) (non-positive-p-name (make-predicate-name non-positive-name))
(non-negative-p-name (make-predicate-name non-negative-name)) (non-negative-p-name (make-predicate-name non-negative-name))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment