/[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.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Mon Jan 13 23:19:51 2003 UTC
# Line 42  Line 42 
42                   (fboundp n))))                   (fboundp n))))
43    t nil)    t nil)
44    
45  (deftest fmakunbound.5  (deftest fmakunbound.error.1
46    (catch-type-error (fmakunbound 1))    (catch-type-error (fmakunbound 1))
47    type-error)    type-error)
48    
49  (deftest fmakunbound.6  (deftest fmakunbound.error.2
50    (catch-type-error (fmakunbound #\a))    (catch-type-error (fmakunbound #\a))
51    type-error)    type-error)
52    
53  (deftest fmakunbound.7  (deftest fmakunbound.error.3
54    (catch-type-error (fmakunbound '(x)))    (catch-type-error (fmakunbound '(x)))
55    type-error)    type-error)
56    
57    (deftest fmakunbound.error.4
58      (classify-error (fmakunbound))
59      program-error)
60    
61    (deftest fmakunbound.error.5
62      (classify-error (fmakunbound (gensym) nil))
63      program-error)
64    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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