/[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.4 by pfdietz, Fri Jan 24 04:22:54 2003 UTC revision 1.5 by pfdietz, Wed Jan 29 02:11:55 2003 UTC
# Line 43  Line 43 
43    t nil)    t nil)
44    
45  (deftest fmakunbound.error.1  (deftest fmakunbound.error.1
46    (catch-type-error (fmakunbound 1))    (classify-error (fmakunbound 1))
47    type-error)    type-error)
48    
49  (deftest fmakunbound.error.2  (deftest fmakunbound.error.2
50    (catch-type-error (fmakunbound #\a))    (classify-error (fmakunbound #\a))
51    type-error)    type-error)
52    
53  (deftest fmakunbound.error.3  (deftest fmakunbound.error.3
54    (catch-type-error (fmakunbound '(x)))    (classify-error (fmakunbound '(x)))
55    type-error)    type-error)
56    
57  (deftest fmakunbound.error.4  (deftest fmakunbound.error.4
# Line 62  Line 62 
62    (classify-error (fmakunbound (gensym) nil))    (classify-error (fmakunbound (gensym) nil))
63    program-error)    program-error)
64    
65    (deftest fmakunbound.error.6
66      (classify-error (locally (fmakunbound 1) t))
67      type-error)

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