Skip to content
Snippets Groups Projects
Commit 36800ad1 authored by Jyrki Jaakkola's avatar Jyrki Jaakkola Committed by Nikodemus Siivola
Browse files

make Alexandria work with readtable-case :INVERT

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