/[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.3 by pfdietz, Thu May 29 12:40:05 2003 UTC revision 1.4 by pfdietz, Sun Dec 12 17:06:45 2004 UTC
# Line 49  Line 49 
49      (compile name)      (compile name)
50      (disassemble-it name))      (disassemble-it name))
51    t nil)    t nil)
52    
53    (defun (setf disassemble-example-fn) (val arg)
54      (setf (car arg) val))
55    
56    (deftest disassemble.8
57      (progn
58        (eval '(defun (setf disassemble-example-fn) (val arg)
59                 (setf (car arg) val)))
60        (disassemble-it '(setf disassemble-example-fn)))
61      t nil)
62    
63    (deftest disassemble.9
64      (progn
65        (eval '(defgeneric disassemble-example-fn2 (x y z)))
66        (disassemble-it 'disassemble-example-fn2))
67      t nil)
68    
69    (deftest disassemble.10
70      (progn
71        (eval '(defgeneric disassemble-example-fn3 (x y z)))
72        (eval '(defmethod disassemble-example-fn3 ((x t)(y t)(z t)) (list x y z)))
73        (disassemble-it 'disassemble-example-fn3))
74      t nil)
75    
76    
77    
78    
79    
80    
81    

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

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