Commit 74980415 authored by pfdietz's avatar pfdietz
Browse files

Removed deftype.14

parent 676982b9
...@@ -151,6 +151,10 @@ ...@@ -151,6 +151,10 @@
(t t) (t t) (t t) (t t)
t nil nil t t nil) t nil nil t t nil)
;;; I've removed this test, because EVAL can cause implicit compilation,
;;; and the semantic constraints on compilation forbid redefinition of
;;; of the types produced by DEFTYPE at runtime.
#|
(deftest deftype.14 (deftest deftype.14
(let* ((sym (gensym)) (let* ((sym (gensym))
(*f* nil) (*f* nil)
...@@ -165,6 +169,7 @@ ...@@ -165,6 +169,7 @@
(funcall *f* 2) (funcall *f* 2)
(loop for i from -1 to 3 collect (typep* i sym)))) (loop for i from -1 to 3 collect (typep* i sym))))
t (nil t t nil nil) 2 (nil t t t nil)) t (nil t t nil nil) 2 (nil t t t nil))
|#
(deftest deftype.15 (deftest deftype.15
(let* ((sym (gensym)) (let* ((sym (gensym))
......
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