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

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

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

revision 1.7 by pfdietz, Sat May 14 02:19:06 2005 UTC revision 1.8 by pfdietz, Sat Aug 13 19:52:49 2005 UTC
# Line 25  Line 25 
25    (check-type-error #'fdefinition #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null))))))    (check-type-error #'fdefinition #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null))))))
26    nil)    nil)
27    
28  (deftest fdefinition.error.5  ;;; (deftest fdefinition.error.5
29    (let ((fn `(setf ,(gensym))))  ;;;  (let ((fn `(setf ,(gensym))))
30      (eval `(signals-error (fdefinition ',fn) undefined-function  ;;;    (eval `(signals-error (fdefinition ',fn) undefined-function
31                            :name ,fn)))  ;;;                       :name ,fn)))
32    t)  ;;;  t)
33    
34  (deftest fdefinition.error.6  (deftest fdefinition.error.6
35    (signals-error (locally (fdefinition 10) t) type-error)    (signals-error (locally (fdefinition 10) t) type-error)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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