diff --git a/ansi-tests/compileit.lsp b/ansi-tests/compileit.lsp index 250b9ccf1987b186c1579f2b0445234bc0420f7e..17dc477ce581b50a34cc5dbd707c4df96e32bf20 100644 --- a/ansi-tests/compileit.lsp +++ b/ansi-tests/compileit.lsp @@ -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") diff --git a/ansi-tests/doit.lsp b/ansi-tests/doit.lsp index 77c62258a521ce89a69435d6ac55fdf33d427bc9..2b38997b2e318dc1e8c20d9da3bfc73303fa3cd9 100644 --- a/ansi-tests/doit.lsp +++ b/ansi-tests/doit.lsp @@ -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") diff --git a/ansi-tests/gclload.lsp b/ansi-tests/gclload.lsp index 0a5cd3ac126a980e767fbfcfc5edcaadd722f427..40b7158d2f5127fdec8b395ed7400c03f794a6b5 100644 --- a/ansi-tests/gclload.lsp +++ b/ansi-tests/gclload.lsp @@ -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"))