Loading alexandria-1/tests.lisp +18 −4 Original line number Diff line number Diff line Loading @@ -1781,14 +1781,18 @@ t) (deftest type=.2 (multiple-value-bind (= ok) (type= 'list '(or null cons)) t (or (and = ok) (and (not =) (not ok)))) t) #-allegro (deftest type=.3 (multiple-value-bind (= ok) (type= 'null '(and symbol list)) t (or (and = ok) (and (not =) (not ok)))) t) (deftest type=.4 Loading @@ -1800,6 +1804,16 @@ nil t) (defun type=.6.stringp (thing) (not (not (stringp thing)))) (deftest type=.6 (multiple-value-bind (= ok) (type= '(or string (satisfies type=.6.stringp)) 'string) (or (and = ok) (and (not =) (not ok)))) t) (macrolet ((test (type numbers) `(deftest ,(format-symbol t '#:cdr5.~a (string type)) Loading Loading
alexandria-1/tests.lisp +18 −4 Original line number Diff line number Diff line Loading @@ -1781,14 +1781,18 @@ t) (deftest type=.2 (multiple-value-bind (= ok) (type= 'list '(or null cons)) t (or (and = ok) (and (not =) (not ok)))) t) #-allegro (deftest type=.3 (multiple-value-bind (= ok) (type= 'null '(and symbol list)) t (or (and = ok) (and (not =) (not ok)))) t) (deftest type=.4 Loading @@ -1800,6 +1804,16 @@ nil t) (defun type=.6.stringp (thing) (not (not (stringp thing)))) (deftest type=.6 (multiple-value-bind (= ok) (type= '(or string (satisfies type=.6.stringp)) 'string) (or (and = ok) (and (not =) (not ok)))) t) (macrolet ((test (type numbers) `(deftest ,(format-symbol t '#:cdr5.~a (string type)) Loading