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

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

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

revision 1.11 by pfdietz, Tue Oct 26 03:52:46 2004 UTC revision 1.12 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  #+allegro (setq *enclose-printer-errors* nil)  #+allegro (setq *enclose-printer-errors* nil)
9  #+cmu (run-program "rm" '("-f" "*.x86f" "*.sparcf" "*.ppcf"))  #+cmu (run-program "rm" '("-f" "*.x86f" "*.sparcf" "*.ppcf"))

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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