diff --git a/ansi-tests/gclload.lsp b/ansi-tests/gclload.lsp index 0219459296c6943f2ecb51fe011aaa227b1f99a4..743c435b2b0f79303db39fe4383236fb6590758b 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))