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