4 |
;;; with arbitrary legal garbage. |
;;; with arbitrary legal garbage. |
5 |
;; (pushnew :ansi-tests-strict-initial-element *features*) |
;; (pushnew :ansi-tests-strict-initial-element *features*) |
6 |
|
|
|
#+(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))) |
|
|
|
|
7 |
#+allegro (run-shell-command "rm -f *.fasl") |
#+allegro (run-shell-command "rm -f *.fasl") |
8 |
#+allegro (setq *enclose-printer-errors* nil) |
#+allegro (setq *enclose-printer-errors* nil) |
9 |
#+cmu (run-program "rm" '("-f" "*.x86f" "*.sparcf" "*.ppcf")) |
#+cmu (run-program "rm" '("-f" "*.x86f" "*.sparcf" "*.ppcf")) |