Commit 8f266445 authored by pfdietz's avatar pfdietz
Browse files

Fixed bug in deftype.15

parent 33f8d509
......@@ -168,10 +168,10 @@
(deftest deftype.15
(let* ((sym (gensym))
(a 1)
(form `(deftype ,sym (&optional (x a))
(declare (special a))
`(integer 0 ,x))))
(form `(let ((a 1))
(deftype ,sym (&optional (x a))
(declare (special a))
`(integer 0 ,x)))))
(values
(eqlt (eval form) sym)
(let ((a 2))
......
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