/[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.4 by pfdietz, Sun Dec 12 17:06:45 2004 UTC revision 1.5 by pfdietz, Mon Dec 13 13:31:50 2004 UTC
# Line 50  Line 50 
50      (disassemble-it name))      (disassemble-it name))
51    t nil)    t nil)
52    
 (defun (setf disassemble-example-fn) (val arg)  
   (setf (car arg) val))  
   
53  (deftest disassemble.8  (deftest disassemble.8
54    (progn    (progn
55      (eval '(defun (setf disassemble-example-fn) (val arg)      (eval '(defun (setf disassemble-example-fn) (val arg)
# Line 72  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)
   
   
   
   
   
   
   

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