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

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

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

revision 1.6 by pfdietz, Fri Jan 16 14:44:05 2004 UTC revision 1.7 by pfdietz, Thu May 5 03:08:56 2005 UTC
# Line 14  Line 14 
14    t)    t)
15    
16  (deftest boundp.error.3  (deftest boundp.error.3
17    (signals-error (boundp 1) type-error)    (signals-type-error x 1 (boundp 1))
18    t)    t)
19    
20  (deftest boundp.error.4  (deftest boundp.error.4
21    (signals-error (boundp '(setf car)) type-error)    (signals-type-error x '(setf car) (boundp x))
22    t)    t)
23    
24  (deftest boundp.error.5  (deftest boundp.error.5
25    (signals-error (boundp "abc") type-error)    (signals-type-error x "abc" (boundp x))
26    t)    t)
27    
28  (deftest boundp.error.6  (deftest boundp.error.6
29    (signals-error (locally (boundp "abc") t) type-error)    (signals-type-error x "abc" (locally (boundp x) t))
30    t)    t)
31    
32  ;;; See other tests in cl-symbols.lsp  ;;; See other tests in cl-symbols.lsp

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

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