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

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

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

revision 1.1 by pfdietz, Sat May 1 21:59:38 2004 UTC revision 1.2 by pfdietz, Sun Jan 30 00:28:45 2005 UTC
# Line 4  Line 4 
4  ;;; with arbitrary legal garbage.  ;;; with arbitrary legal garbage.
5  ;; (pushnew :ansi-tests-strict-initial-element *features*)  ;; (pushnew :ansi-tests-strict-initial-element *features*)
6    
 #+(and clisp (or win32 cygwin))       ; w2k exits on (disassemble 'car)  
 (without-package-lock ("SYS")  
  (defun sys::disassemble-machine-code (a b c)  
    (format t "~&<~S ~S ~S>~%" a b c)))  
   
7  #+allegro (run-shell-command "rm -f *.fasl")  #+allegro (run-shell-command "rm -f *.fasl")
8  #+cmucl (run-program "rm -f *.x86f")  #+cmucl (run-program "rm -f *.x86f")
9    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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