From 2470b40d2545153af8731941e070485cb2b84fcc Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 14 Apr 2004 00:41:37 +0000
Subject: [PATCH] Added a patch requested by sds so clisp can be tested on
 Windows.

---
 ansi-tests/gclload.lsp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/gclload.lsp b/ansi-tests/gclload.lsp
index 02194592..743c435b 100644
--- a/ansi-tests/gclload.lsp
+++ b/ansi-tests/gclload.lsp
@@ -4,7 +4,12 @@
 ;;; with arbitrary legal garbage.
 ;; (pushnew :ansi-tests-strict-initial-element *features*)
 
+#+:(and clisp win32)            ; 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)))
+
 (load "gclload1.lsp")
 (load "gclload2.lsp")
 (in-package :cl-test)
-(regression-test:do-tests)
+(time (regression-test:do-tests))
-- 
GitLab