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

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

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

revision 1.10 by pfdietz, Sat Feb 15 13:47:31 2003 UTC revision 1.11 by pfdietz, Sun Feb 23 12:19:43 2003 UTC
# Line 399  Line 399 
399    (flet ((:foo () 'bar)) (funcall #':foo))    (flet ((:foo () 'bar)) (funcall #':foo))
400    bar)    bar)
401    
402    (deftest flet.49
403      (loop for s in *cl-non-function-macro-special-operator-symbols*
404            for form = `(classify-error (flet ((,s () 'a)) (,s)))
405            unless (eq (eval form) 'a)
406            collect s)
407      nil)
408    
409    (deftest flet.50
410      (loop for s in *cl-non-function-macro-special-operator-symbols*
411            for form = `(classify-error (flet ((,s () 'a))
412                                          (declare (ftype (function () symbol)
413                                                          ,s))
414                                          (,s)))
415            unless (eq (eval form) 'a)
416            collect s)
417      nil)
418    
419    ;;; Binding SETF functions of certain COMMON-LISP symbols
420    (deftest flet.51
421      (loop for s in *cl-non-function-macro-special-operator-symbols*
422            for form = `(classify-error
423                         (flet (((setf ,s) (&rest args)
424                                 (declare (ignore args))
425                                 'a))
426                           (setf (,s) 10)))
427            unless (eq (eval form) 'a)
428            collect s)
429      nil)
430    
431    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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