Skip to content
Snippets Groups Projects
Commit bdcdff90 authored by pfdietz's avatar pfdietz
Browse files

Merged in change that Bruno Haible sent on 14 Dec 2004

parent 7dd45332
No related branches found
Tags 1.624
No related merge requests found
......@@ -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"))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment