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

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

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

revision 1.8 by pfdietz, Fri May 6 01:13:41 2005 UTC revision 1.9 by pfdietz, Fri May 6 14:05:07 2005 UTC
# Line 45  Line 45 
45  (deftest fmakunbound.error.1  (deftest fmakunbound.error.1
46    (check-type-error #'fmakunbound    (check-type-error #'fmakunbound
47                      #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null))))))                      #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null))))))
48    t)    nil)
49    
50  (deftest fmakunbound.error.2  (deftest fmakunbound.error.2
51    (check-type-error #'fmakunbound (constantly nil)    (check-type-error #'fmakunbound (constantly nil)
# Line 70  Line 70 
70    
71  (deftest fmakunbound.error.7  (deftest fmakunbound.error.7
72    (check-type-error #'(lambda (x) (fmakunbound `(setf ,x)))  #'symbolp)    (check-type-error #'(lambda (x) (fmakunbound `(setf ,x)))  #'symbolp)
73    t)    nil)

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

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