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