Commit d93a0a1f authored by pfdietz's avatar pfdietz

Changes requested by DR for Allegro CL

parent ca55e0ac
......@@ -10,6 +10,7 @@
(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")
(load "gclload1.lsp")
......
......@@ -10,6 +10,7 @@
(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"))
(load "gclload1.lsp")
......
......@@ -129,7 +129,7 @@
count
(multiple-value-bind (s1 s2 args)
(make-random-string-compare-test n)
;; (format t "Args = ~S~%" args)
;; (format t "Strings: ~s ~s - Args = ~S~%" s1 s2 args)
(let ((x (apply (case comparison
(< (if case #'string-lessp #'string<))
(<= (if case #'string-not-greaterp
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment