Commit f6832b7a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.26.130: fix compile-file* for ecl_bytecodes

Also, make script re-loadable in a debug session.
parent 16223e47
;;; -*- Lisp -*-
(load-asdf)
(in-package :cl-user)
(asdf-test::with-test ()
(defun module () 1)
......
;;; -*- Lisp -*-
(load-asdf)
(progn
......
;;; -*- Lisp -*-
(asdf:defsystem test-redundant-recompile
:components ((:file "file2" :in-order-to ((compile-op (load-op "file1"))
(load-op (load-op "file1"))))
(:file "file1")))
#|
;;;This test system definition attempts to replicate the excess dependencies
;;;that seem to give rise to launchpad bug 590517
;;;(https://bugs.launchpad.net/asdf/+bug/590517)
1) from clean, check that all fasl files build and that some function
defined in the second file is present
2) load again. Check to make sure that nothing is recompiled.
|#
;;; -*- Lisp -*-
#|
;;;This test system definition attempts to replicate the excess dependencies
;;;that seem to give rise to launchpad bug 590517
;;;(https://bugs.launchpad.net/asdf/+bug/590517)
(load-asdf)
1) from clean, check that all fasl files build and that some function
defined in the second file is present
(asdf:operate 'asdf:load-op 'test-redundant-recompile)
2) load again. Check to make sure that nothing is recompiled.
|#
(def-test-system test-redundant-recompile
:components ((:file "file2" :in-order-to ((compile-op (load-op "file1"))
(load-op (load-op "file1"))))
(:file "file1")))
(load-system 'test-redundant-recompile)
;; test that it compiled
(defparameter file1 (test-fasl "file1"))
(defparameter file2 (test-fasl "file2"))
......
......@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart
(load-asdf)
(defvar *caught-error* nil)
(progn
(DBG "trlc1 1")
......
;;; -*- Lisp -*-
(load-asdf)
;;; TODO: write tests for run-program/ instead -- and/or
;;; import those from the original xcvb-driver-test
......
;;; -*- Lisp -*-
(load-asdf)
(DBG "loading test-samedir-modules")
(asdf:operate 'asdf:load-op 'test-samedir-modules)
......
;;; -*- Lisp -*-
(load-asdf)
;;(trace asdf::source-file-type asdf::source-file-explicit-type)
......
......@@ -4,7 +4,7 @@ make sure that serial t and static-files
don't cause full rebuilds all the time...
|#
(load-asdf)
(in-package :asdf-test)
......
;;; -*- Lisp -*-
(load-asdf)
(progn
(asdf:initialize-source-registry '(:source-registry :ignore-inherited-configuration))
......
;;; -*- Lisp -*-
(load-asdf)
(progn
(asdf:load-system 'test-system-pathnames)
......
......@@ -3,7 +3,7 @@
;;; test system def reloading if touched
;;; system that can be found using *system-definition-search-functions*
(load-asdf)
(defun system-load-time (name)
(if-let (data (asdf::system-registered-p name))
......
......@@ -4,7 +4,7 @@
;;; system that canNOT be found using *system-definition-search-functions*
(load-asdf)
(progn
(flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name)))
......
......@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart
(load-asdf)
(defparameter *caught-error* nil)
(delete-file-if-exists (test-fasl "try-recompiling-1"))
......
;;; -*- Lisp -*-
(load-asdf)
#+scl
(require :http-library)
......
;;; -*- Lisp -*-
(load-asdf)
#+scl
(require :http-library)
......
;;; -*- Lisp -*-
(load-asdf)
(in-package :asdf)
(use-package :asdf-test)
......
;;; -*- Lisp -*-
(load-asdf)
(progn
(def-test-system :versioned-system-1
......
;;; -*- Lisp -*-
(load-asdf)
;;;---------------------------------------------------------------------------
;;; Check to see if a weakly-depended-on system, which is present in the
......
......@@ -7,7 +7,7 @@
;;;---------------------------------------------------------------------------
(load-asdf)
(asdf:load-system 'test-weakly-depends-on-unpresent)
;; test that it compiled
......
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