/[gcl]/gcl/ansi-tests/deftype.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/deftype.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pfdietz, Mon May 23 00:50:08 2005 UTC revision 1.5 by pfdietz, Fri May 27 03:18:05 2005 UTC
# Line 168  Line 168 
168    
169  (deftest deftype.15  (deftest deftype.15
170    (let* ((sym (gensym))    (let* ((sym (gensym))
171           (a 1)           (form `(let ((a 1))
172           (form `(deftype ,sym (&optional (x a))                    (deftype ,sym (&optional (x a))
173                    (declare (special a))                      (declare (special a))
174                    `(integer 0 ,x))))                      `(integer 0 ,x)))))
175      (values      (values
176       (eqlt (eval form) sym)       (eqlt (eval form) sym)
177       (let ((a 2))       (let ((a 2))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26