Commit bdcdff90 authored by pfdietz's avatar pfdietz
Browse files

Merged in change that Bruno Haible sent on 14 Dec 2004

parent 7dd45332
......@@ -4,11 +4,6 @@
;;; with arbitrary legal garbage.
;; (pushnew :ansi-tests-strict-initial-element *features*)
#+(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)))
#+allegro (run-shell-command "rm -f *.fasl")
#+cmucl (run-program "rm -f *.x86f")
......
......@@ -4,11 +4,6 @@
;;; with arbitrary legal garbage.
;; (pushnew :ansi-tests-strict-initial-element *features*)
#+(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)))
#+allegro (run-shell-command "rm -f *.fasl")
#+allegro (setq *enclose-printer-errors* nil)
#+cmucl (run-program "rm -f *.x86f")
......
......@@ -4,11 +4,6 @@
;;; with arbitrary legal garbage.
;; (pushnew :ansi-tests-strict-initial-element *features*)
#+(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)))
#+allegro (run-shell-command "rm -f *.fasl")
#+allegro (setq *enclose-printer-errors* nil)
#+cmu (run-program "rm" '("-f" "*.x86f" "*.sparcf" "*.ppcf"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment