From bdcdff908856e65fd7ce0fb025958b6d169134cb Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 30 Jan 2005 00:28:45 +0000 Subject: [PATCH] Merged in change that Bruno Haible sent on 14 Dec 2004 --- ansi-tests/compileit.lsp | 5 ----- ansi-tests/doit.lsp | 5 ----- ansi-tests/gclload.lsp | 5 ----- 3 files changed, 15 deletions(-) diff --git a/ansi-tests/compileit.lsp b/ansi-tests/compileit.lsp index 250b9ccf..17dc477c 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 77c62258..2b38997b 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 0a5cd3ac..40b7158d 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")) -- GitLab