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

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

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

revision 1.5 by pfdietz, Mon Dec 13 13:31:50 2004 UTC revision 1.6 by pfdietz, Mon May 9 02:48:19 2005 UTC
# Line 69  Line 69 
69      (eval '(defmethod disassemble-example-fn3 ((x t)(y t)(z t)) (list x y z)))      (eval '(defmethod disassemble-example-fn3 ((x t)(y t)(z t)) (list x y z)))
70      (disassemble-it 'disassemble-example-fn3))      (disassemble-it 'disassemble-example-fn3))
71    t nil)    t nil)
72    
73    ;;; Error tests
74    
75    (deftest disassemble.error.1
76      (signals-error (disassemble) program-error)
77      t)
78    
79    (deftest disassemble.error.2
80      (signals-error (disassemble 'car nil) program-error)
81      t)
82    
83    (deftest disassemble.error.3
84      (check-type-error #'disassemble
85                        (typef '(or function symbol (cons (eql setf) (cons symbol null)))))
86      nil)
87    

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

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