/[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.6 by pfdietz, Mon May 9 02:48:19 2005 UTC revision 1.7 by pfdietz, Sun May 22 01:06:32 2005 UTC
# Line 70  Line 70 
70      (disassemble-it 'disassemble-example-fn3))      (disassemble-it 'disassemble-example-fn3))
71    t nil)    t nil)
72    
73    (deftest disassemble.11
74      (let ((fn 'disassemble-example-fn4))
75        (when (fboundp fn) (fmakunbound fn))
76        (eval `(defun ,fn (x) x))
77        (let ((is-compiled? (typep (symbol-function fn) 'compiled-function)))
78          (multiple-value-call
79           #'values
80           (disassemble-it fn)
81           (if is-compiled? (notnot (typep (symbol-function fn) 'compiled-function))
82             (not (typep (symbol-function fn) 'compiled-function))))))
83      t nil t)
84    
85  ;;; Error tests  ;;; Error tests
86    
87  (deftest disassemble.error.1  (deftest disassemble.error.1

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