Commit 50080e4c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

More test frobbing.

parent 53b7feec
......@@ -65,8 +65,7 @@ Some constraints:
(< system::*gcl-minor-version* 7)))
(shadowing-import 'system:*load-pathname* :asdf-test))
#+lispworks
(setf system:*stack-overflow-behaviour* :warn)
(setf system:*sg-default-size* 200000))
(setf system:*stack-overflow-behaviour* :warn))
#+(or gcl genera)
(unless (fboundp 'ensure-directories-exist)
......
......@@ -2,17 +2,17 @@
(DBG :foo (current-lisp-file-pathname))
(defparameter exe (output-file (make-operation 'program-op) (find-system :hello-world-example)))
(assert (absolute-pathname-p exe))
(unless (and #-(or clisp clozure cmu ecl lispworks sbcl) nil
#+cmu nil ;; uncomment if you have 32-bit gcc support - or can autodetect
#+clisp (version-satisfies
(first (split-string (lisp-implementation-version) :separator " "))
"2.48"))
(unless (or #+(or clisp clozure (and ecl (not ecl-bytecmp)) lispworks sbcl) t
#+cmu nil ;; uncomment if you have 32-bit gcc support - or can autodetect
#+clisp (version-satisfies
(first (split-string (lisp-implementation-version) :separator " "))
"2.48"))
(DBG "Creating standalone programs is not supported on your CL implementation")
(leave-test "Skipping test" 0))
(defparameter exe (output-file (make-operation 'program-op) (find-system :hello-world-example)))
(assert (absolute-pathname-p exe))
;; Try to load lisp-invocation from xcvb
(setf *central-registry*
(list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
......
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