Commit 7f4d19be authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Release 1.373. Remove tabs in all lisp files.

parent faa8b05b
......@@ -33,7 +33,7 @@
;; Note how we use OUTPUT-FILES to find the binary locations
;; This allows the user to override the names.
(let* ((input (output-files o c))
(output (compile-file-pathname (first input) :type :fasl)))
(output (compile-file-pathname (first input) :type :fasl)))
(c:build-fasl output :lisp-files (remove "fas" input :key #'pathname-type :test #'string=))))
(defmethod perform ((o load-op) (c cl-source-file))
......@@ -83,11 +83,11 @@
((type :initform :program)))
(defmethod initialize-instance :after ((instance bundle-op) &rest initargs
&key (name-suffix nil name-suffix-p)
&allow-other-keys)
&key (name-suffix nil name-suffix-p)
&allow-other-keys)
(unless name-suffix-p
(setf (slot-value instance 'name-suffix)
(if (bundle-op-monolithic-p instance) "-mono" "")))
(if (bundle-op-monolithic-p instance) "-mono" "")))
(when (typep instance 'monolithic-bundle-op)
(destructuring-bind (&rest original-initargs
&key prologue-code epilogue-code &allow-other-keys)
......@@ -97,8 +97,8 @@
(monolithic-op-prologue-code instance) prologue-code
(monolithic-op-epilogue-code instance) epilogue-code)))
(setf (bundle-op-build-args instance)
(remove-keys '(type monolithic name-suffix)
(slot-value instance 'original-initargs))))
(remove-keys '(type monolithic name-suffix)
(slot-value instance 'original-initargs))))
(defvar *force-load-p* nil)
......@@ -114,12 +114,12 @@
(tree (traverse (make-instance 'load-op) system)))
(append
(loop for (op . component) in tree
when (and (typep op 'load-op)
(typep component filter-type)
(or (not filter-system) (eq (component-system component) filter-system)))
collect (progn
(when (eq component system) (setf include-self nil))
(cons operation component)))
when (and (typep op 'load-op)
(typep component filter-type)
(or (not filter-system) (eq (component-system component) filter-system)))
collect (progn
(when (eq component system) (setf include-self nil))
(cons operation component)))
(and include-self (list (cons operation system))))))
;;;
......@@ -150,8 +150,8 @@
;;;
(defmethod bundle-sub-operations ((o lib-op) c)
(gather-components 'compile-op c
:filter-system (and (not (bundle-op-monolithic-p o)) c)
:filter-type '(not system)))
:filter-system (and (not (bundle-op-monolithic-p o)) c)
:filter-type '(not system)))
;;;
;;; SHARED LIBRARIES
;;;
......@@ -173,7 +173,7 @@
(loop for (op . dep) in (bundle-sub-operations o c)
when (typep dep 'system)
collect (list (class-name (class-of op))
(component-name dep))))
(component-name dep))))
(defmethod component-depends-on ((o lib-op) (c system))
(list (list 'compile-op (component-name c))))
......@@ -187,9 +187,9 @@
(defmethod output-files ((o bundle-op) (c system))
(let ((name (concatenate 'base-string (component-name c)
(slot-value o 'name-suffix))))
(slot-value o 'name-suffix))))
(list (merge-pathnames (compile-file-pathname name :type (bundle-op-type o))
(component-relative-pathname c)))))
(component-relative-pathname c)))))
(defmethod output-files ((o fasl-op) (c system))
(loop for file in (call-next-method)
......@@ -203,10 +203,10 @@
(defmethod perform ((o bundle-op) (c system))
(let* ((object-files (remove "fas" (input-files o c) :key #'pathname-type :test #'string=))
(output (output-files o c)))
(output (output-files o c)))
(ensure-directories-exist (first output))
(apply #'c::builder (bundle-op-type o) (first output) :lisp-files object-files
(append (bundle-op-build-args o)
(append (bundle-op-build-args o)
(when (and (typep o 'monolithic-bundle-op)
(monolithic-op-prologue-code o))
`(:prologue-code ,(monolithic-op-prologue-code o)))
......@@ -229,8 +229,8 @@
(defun make-build (system &rest args &key (monolithic nil) (type :fasl)
&allow-other-keys)
(apply #'operate (select-operation monolithic type)
system
(remove-keys '(monolithic type) args)))
system
(remove-keys '(monolithic type) args)))
;;;
;;; LOAD-FASL-OP
......
This diff is collapsed.
......@@ -163,7 +163,7 @@
;;;;
(defvar *asdf-revision*
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(subseq "REVISION:1.372" (1+ (length "REVISION"))))
(subseq "REVISION:1.373" (1+ (length "REVISION"))))
(defvar *resolve-symlinks* t
"Determine whether or not ASDF resolves symlinks when defining systems.
......
......@@ -418,19 +418,19 @@ slightly convoluted example:
The method-form tokens need explaining: essentially, this part:
@lisp
:perform (compile-op :after (op c)
(do-something c))
:explain (compile-op :after (op c)
(explain-something c))
:perform (compile-op :after (op c)
(do-something c))
:explain (compile-op :after (op c)
(explain-something c))
@end lisp
has the effect of
@lisp
(defmethod perform :after ((op compile-op) (c (eql ...)))
(do-something c))
(do-something c))
(defmethod explain :after ((op compile-op) (c (eql ...)))
(explain-something c))
(explain-something c))
@end lisp
where @code{...} is the component in question; note that although this
......@@ -452,10 +452,10 @@ option := :components component-list
| :default-component-class
| :perform method-form
| :explain method-form
| :output-files method-form
| :output-files method-form
| :operation-done-p method-form
| :depends-on ( {dependency-def}* )
| :serial [ t | nil ]
| :serial [ t | nil ]
| :in-order-to ( {dependency}+ )
component-list := ( {component-def}* )
......@@ -497,8 +497,8 @@ is equivalent to
@lisp
:components ((:file "a")
(:file "b" :depends-on ("a"))
(:file "c" :depends-on ("a" "b")))
(:file "b" :depends-on ("a"))
(:file "c" :depends-on ("a" "b")))
@end lisp
......@@ -706,13 +706,13 @@ libraries and test techniques in use in the community.
@c @lisp
@c (defun version-satisfies (x y)
@c (labels ((bigger (x y)
@c (cond ((not y) t)
@c ((not x) nil)
@c ((> (car x) (car y)) t)
@c ((= (car x) (car y))
@c (bigger (cdr x) (cdr y))))))
@c (cond ((not y) t)
@c ((not x) nil)
@c ((> (car x) (car y)) t)
@c ((= (car x) (car y))
@c (bigger (cdr x) (cdr y))))))
@c (and (= (car x) (car y))
@c (or (not (cdr y)) (bigger (cdr x) (cdr y))))))
@c (or (not (cdr y)) (bigger (cdr x) (cdr y))))))
@c @end lisp
@c If that doesn't work for your system, you can override it. I hope
......@@ -883,7 +883,7 @@ initargs for the component, you can say
@lisp
:in-order-to ((compile-op (load-op "a" "b") (compile-op "c"))
(load-op (load-op "foo")))
(load-op (load-op "foo")))
@end lisp
This means the following things:
......@@ -1381,7 +1381,7 @@ so should be.
*** Propagation of the :force option. ``I notice that
(oos 'compile-op :araneida :force t)
(oos 'compile-op :araneida :force t)
also forces compilation of every other system the :araneida system
depends on. This is rarely useful to me; usually, when I want to force
......
This diff is collapsed.
(in-package :cl-user)
(defpackage :cclan (:use #:cl #:asdf)
(:export #:all-components #:write-package))
(:export #:all-components #:write-package))
......@@ -5,4 +5,4 @@
(defsystem cclan
:version "0.1"
:components ((:file "cclan-package")
(:file "cclan" :depends-on ("cclan-package"))))
(:file "cclan" :depends-on ("cclan-package"))))
......@@ -27,14 +27,14 @@
(defun cvs-tag-name (system)
(let* ((system (find-system system))
(version (component-version system)))
(version (component-version system)))
(format nil "release_~A" (substitute #\_ #\. version))))
(defun cvs-tag (system)
(let* ((system (find-system system))
(directory (component-pathname system)))
(directory (component-pathname system)))
(run-shell-command "cd ~A && cvs tag -F ~A"
(namestring directory) (cvs-tag-name system))))
(namestring directory) (cvs-tag-name system))))
(defun write-readme-file (stream suggested-registry system-name)
......@@ -56,42 +56,42 @@ at your own peril.~%" suggested-registry suggested-registry system-name suggeste
(defun write-package (system)
(let* ((parent-dir
(parse-namestring
(format nil "/tmp/~A.~A/"
#+sbcl (sb-unix:unix-getpid)
#-sbcl (random 1000000)
(get-internal-run-time))))
(system (find-system system))
(sub-dir-name
(format nil "~A_~A"
(component-name system) (component-version system)))
(cvsroot-file
(merge-pathnames "CVS/Root" (component-pathname system)))
(old-pwd *default-pathname-defaults*)
(*default-pathname-defaults* parent-dir))
(parse-namestring
(format nil "/tmp/~A.~A/"
#+sbcl (sb-unix:unix-getpid)
#-sbcl (random 1000000)
(get-internal-run-time))))
(system (find-system system))
(sub-dir-name
(format nil "~A_~A"
(component-name system) (component-version system)))
(cvsroot-file
(merge-pathnames "CVS/Root" (component-pathname system)))
(old-pwd *default-pathname-defaults*)
(*default-pathname-defaults* parent-dir))
(ensure-directories-exist parent-dir)
(cvs-tag system)
(and
(zerop (asdf:run-shell-command
"cd ~A && cvs -d `cat ~A` checkout -d ~A -r ~A -kv ~A"
(namestring parent-dir)
(namestring cvsroot-file)
sub-dir-name
(cvs-tag-name system)
(component-name system)))
"cd ~A && cvs -d `cat ~A` checkout -d ~A -r ~A -kv ~A"
(namestring parent-dir)
(namestring cvsroot-file)
sub-dir-name
(cvs-tag-name system)
(component-name system)))
(with-open-file (o (format nil "~A/INSTALL.asdf" sub-dir-name)
:direction :output)
:direction :output)
(write-readme-file o "$HOME/lisp/systems/" (component-name system))
t)
(zerop (asdf:run-shell-command "cd ~A && tar cf ~A~A.tar ~A"
(namestring parent-dir)
(namestring old-pwd) sub-dir-name
sub-dir-name))
(namestring parent-dir)
(namestring old-pwd) sub-dir-name
sub-dir-name))
(zerop (asdf:run-shell-command
"gzip -f9 ~A~A.tar"
(namestring old-pwd) sub-dir-name))
"gzip -f9 ~A~A.tar"
(namestring old-pwd) sub-dir-name))
(format t "Now run~% gpg -b -a ~A~A.tar.gz~%in a shell with a tty"
(namestring old-pwd) sub-dir-name))))
(namestring old-pwd) sub-dir-name))))
(defun class-name-of (x)
(class-name (class-of x)))
......
......@@ -4,15 +4,15 @@
(cond ((probe-file "asdf.lisp")
(multiple-value-bind (result warnings-p errors-p)
(compile-file "asdf.lisp")
(declare (ignore result))
(cond (warnings-p
(leave-lisp "Testuite failed: ASDF compiled with warnings" 1))
(errors-p
(leave-lisp "Testuite failed: ASDF compiled with ERRORS" 2))
(t
(leave-lisp "ASDF compiled cleanly" 0)))))
(compile-file "asdf.lisp")
(declare (ignore result))
(cond (warnings-p
(leave-lisp "Testuite failed: ASDF compiled with warnings" 1))
(errors-p
(leave-lisp "Testuite failed: ASDF compiled with ERRORS" 2))
(t
(leave-lisp "ASDF compiled cleanly" 0)))))
(t
(leave-lisp "Testsuite failed: unable to find ASDF source" 3)))
\ No newline at end of file
\ No newline at end of file
This diff is collapsed.
......@@ -10,8 +10,8 @@
(exit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(defmethod asdf:preference-file-for-system/operation
((system (eql (asdf:find-system 'test1))) operation)
(merge-pathnames (make-pathname :name "test1" :type "preferences")))
((system (eql (asdf:find-system 'test1))) operation)
(merge-pathnames (make-pathname :name "test1" :type "preferences")))
(asdf:operate 'asdf:load-op 'test1)
(assert (null *test6*)))
......
......@@ -10,8 +10,8 @@
(exit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(defmethod asdf:preference-file-for-system/operation
((system (eql (asdf:find-system 'test1))) operation)
(merge-pathnames (make-pathname :name "test1" :type "preferences")))
((system (eql (asdf:find-system 'test1))) operation)
(merge-pathnames (make-pathname :name "test1" :type "preferences")))
(setf asdf::*load-preference-files* t)
(asdf:operate 'asdf:load-op 'test1)
(assert (eq *test6* :yes)))
......
......@@ -3,12 +3,12 @@
(assert
(equalp
(let ((*system-definition-search-functions*
'(sysdef-central-registry-search))
'(sysdef-central-registry-search))
(*central-registry* (list "/tmp/ok-1/" "/tmp/bad" "/tmp/ok-2/")))
(handler-bind
((error (lambda (c)
(when (find-restart 'remove-entry-from-registry)
(invoke-restart 'remove-entry-from-registry)))))
(when (find-restart 'remove-entry-from-registry)
(invoke-restart 'remove-entry-from-registry)))))
(find-system "a" nil))
*central-registry*)
(list "/tmp/ok-1/" "/tmp/ok-2/"))
......@@ -17,12 +17,12 @@
(assert
(equalp
(let ((*system-definition-search-functions*
'(sysdef-central-registry-search))
'(sysdef-central-registry-search))
(*central-registry* (list "/tmp/ok-1/" "/tmp/bad" "/tmp/ok-2/")))
(handler-bind
((error (lambda (c)
(when (find-restart 'coerce-entry-to-directory)
(invoke-restart 'coerce-entry-to-directory)))))
(when (find-restart 'coerce-entry-to-directory)
(invoke-restart 'coerce-entry-to-directory)))))
(find-system "a" nil))
*central-registry*)
(list "/tmp/ok-1/" #p"/tmp/bad/" "/tmp/ok-2/"))
......
......@@ -33,7 +33,7 @@
(defmacro quit-on-error (&body body)
`(handler-case
(progn ,@body
(leave-lisp "~&Script succeeded~%" 0))
(leave-lisp "~&Script succeeded~%" 0))
(error (c)
(format *error-output* "~a" c)
(leave-lisp "~&Script failed~%" 1))))
......@@ -4,9 +4,9 @@
:components
((:module "sources/level1"
:serial t
:components
((:file "file1")
(:file "level2/file2")
(:static-file "level2/static.file")
(:static-file "test-tmp.cl")))))
:components
((:file "file1")
(:file "level2/file2")
(:static-file "level2/static.file")
(:static-file "test-tmp.cl")))))
......@@ -25,34 +25,34 @@
nil
"Didn't get the name of static.file right")))
(assert (find-package :test-package) nil
"package test-package not found")
"package test-package not found")
(assert (find-symbol (symbol-name '*file-tmp*) :test-package) nil
"symbol `*file-tmp*` not found")
"symbol `*file-tmp*` not found")
(assert (symbol-value (find-symbol (symbol-name '*file-tmp*) :test-package))
nil "symbol `*file-tmp*` has wrong value")
nil "symbol `*file-tmp*` has wrong value")
#| ; must be adapted to ABL
(assert (probe-file (merge-pathnames
(make-pathname
:name "file1"
:type (pathname-type (compile-file-pathname "x"))
:directory '(:relative "sources" "level1"))))
nil "compiled file not found")
(make-pathname
:name "file1"
:type (pathname-type (compile-file-pathname "x"))
:directory '(:relative "sources" "level1"))))
nil "compiled file not found")
|#
(assert (find-symbol (symbol-name '*file-tmp2*) :test-package) nil
"symbol `*file-tmp2*` not found")
"symbol `*file-tmp2*` not found")
(assert (symbol-value (find-symbol (symbol-name '*file-tmp2*) :test-package))
nil "symbol `*file-tmp2*` has wrong value")
nil "symbol `*file-tmp2*` has wrong value")
#| ; must be adapted to ABL
(assert (probe-file (merge-pathnames
(make-pathname
:name "file2"
:type (pathname-type (compile-file-pathname "x"))
:directory '(:relative "sources" "level1" "level2"))))
nil "compiled file not found")
(make-pathname
:name "file2"
:type (pathname-type (compile-file-pathname "x"))
:directory '(:relative "sources" "level1" "level2"))))
nil "compiled file not found")
|#
)
......@@ -3,13 +3,13 @@
:serial t
:components
((:module "a"
:serial t
:pathname "."
:components
((:file "file1")
(:file "file2")))
:serial t
:pathname "."
:components
((:file "file1")
(:file "file2")))
(:module "b"
:pathname "b"
:components
((:file "file3")))))
:pathname "b"
:components
((:file "file3")))))
......@@ -2,12 +2,12 @@
(asdf:defsystem test-modules
:components
((:module "a"
:pathname "."
:components
((:file "file1")))
:pathname "."
:components
((:file "file1")))
(:module "b"
:pathname "b"
:depends-on ("a")
:components
((:file "file2")))))
:pathname "b"
:depends-on ("a")
:components
((:file "file2")))))
......@@ -23,15 +23,15 @@
(in-package #:common-lisp-user)
(defpackage #:test-nested-components.system
(:use #:common-lisp #:asdf))
(:use #:common-lisp #:asdf))
(in-package #:test-nested-components.system)
(defsystem test-nested-components-a
:components
((:module "nested-components"
:pathname ""
:components ((:file "test-nested-1")))))
:pathname ""
:components ((:file "test-nested-1")))))
(defsystem test-nested-components-b
:pathname ""
......@@ -41,7 +41,7 @@
(defsystem db-agraph-preflight
:components
((:module "preflight-checks"
:components ((:file "preflight")))))
:components ((:file "preflight")))))
(defsystem db-agraph-preflight-2
:pathname "preflight-checks"
......
......@@ -13,14 +13,14 @@
(list
:a
(asdf::traverse (make-instance 'asdf:compile-op)
(asdf:find-system 'test-nested-components-a))
(asdf:find-system 'test-nested-components-a))
(asdf::traverse (make-instance 'asdf:compile-op)
(asdf:find-system 'test-nested-components-b))
(asdf:find-system 'test-nested-components-b))
:x
(asdf::traverse (make-instance 'asdf:compile-op)
(asdf:find-system 'db-agraph-preflight))
(asdf:find-system 'db-agraph-preflight))
(asdf::traverse (make-instance 'asdf:compile-op)
(asdf:find-system 'db-agraph-preflight-2))
(asdf:find-system 'db-agraph-preflight-2))
))
#|
......@@ -31,9 +31,9 @@
(print
(list
(asdf::traverse (make-instance 'asdf:load-op)
(asdf:find-system 'test-nested-components-a))
(asdf:find-system 'test-nested-components-a))
(asdf::traverse (make-instance 'asdf:load-op)
(asdf:find-system 'test-nested-components-b))))
(asdf:find-system 'test-nested-components-b))))
|#
......
......@@ -12,21 +12,21 @@
(quit-on-error
(when (probe-file "try-reloading-dependency.asd")
(asdf:run-shell-command "rm -f ~A"
(namestring "try-reloading-dependency.asd")))
(namestring "try-reloading-dependency.asd")))
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(setf asdf::*defined-systems* (asdf::make-defined-systems-table))
(handler-bind ((error (lambda (c)
(format t "~&Caught error ~s" c)
(setf *caught-error* t)
(asdf:run-shell-command
"cp try-reloading-dependency.hidden try-reloading-dependency.asd")
(multiple-value-bind (name mode)
(find-symbol (symbol-name 'retry) :asdf)
(assert (eq mode :external) nil "Mode of ~s was not external" name)
(let ((restart (find-restart name c)))
(assert restart)
(format t "~&Caught error ~s" c)
(setf *caught-error* t)
(asdf:run-shell-command
"cp try-reloading-dependency.hidden try-reloading-dependency.asd")
(multiple-value-bind (name mode)
(find-symbol (symbol-name 'retry) :asdf)
(assert (eq mode :external) nil "Mode of ~s was not external" name)
(let ((restart (find-restart name c)))
(assert restart)
(format t "~&restart: ~S~&" restart)
(when restart (invoke-restart restart)))))))
(when restart (invoke-restart restart)))))))
(asdf:oos 'asdf:load-op 'try-reloading-1))
(assert *caught-error*)
)
......
......@@ -7,13 +7,13 @@
(load "../asdf")
(quit-on-error
(flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name)))
(when data
(car data)))))
(let ((data (asdf::system-registered-p name)))
(when data
(car data)))))
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(asdf:find-system :test1)
(let ((date1 (system-load-time :test1))
(file (namestring (merge-pathnames "test1.asd"))))
(file (namestring (merge-pathnames "test1.asd"))))
(assert date1)
(assert file)
(sleep 1)
......
......@@ -7,14 +7,14 @@
(load "../asdf")
(quit-on-error
(flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name)))
(when data
(car data)))))
(let ((data (asdf::system-registered-p name)))
(when data
(car data)))))
(setf asdf:*central-registry* nil)
(load (merge-pathnames "test1.asd"))
(assert (asdf:find-system :test1))
(let ((date1 (system-load-time :test1))
(file (namestring (merge-pathnames "test1.asd"))))
(file (namestring (merge-pathnames "test1.asd"))))
(assert date1)
(assert file)
(sleep 1)
......
......@@ -8,22 +8,22 @@
(quit-on-error
(asdf:run-shell-command "rm -f ~A"
(namestring
(compile-file-pathname "try-recompiling-1")))
(namestring
(compile-file-pathname "try-recompiling-1")))
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(handler-bind ((error (lambda (c)
(setf *caught-error* t)
(multiple-value-bind (name mode)
(find-symbol
(symbol-name 'try-recompiling)
:asdf)
(assert (eq mode :external))
(let ((restart (find-restart name c)))
#+(or)
;; debug
(print (list c restart (compute-restarts c)))
(when restart
(invoke-restart restart)))))))
(setf *caught-error* t)
(multiple-value-bind (name mode)
(find-symbol
(symbol-name 'try-recompiling)
:asdf)
(assert (eq mode :external))
(let ((restart (find-restart name c)))
#+(or)
;; debug
(print (list c restart (compute-restarts c)))
(when restart
(invoke-restart restart)))))))
(asdf:oos 'asdf:load-op 'try-recompiling-1))
(assert *caught-error*)
)
......
......@@ -22,8 +22,8 @@
:version "1.2")
(flet ((test (name v &optional (true t))
(or (eq true (asdf::version-satisfies (find-system name) v))
(error "no satisfaction: ~S version ~A not ~A" name v true))))
(or (eq true (asdf::version-satisfies (find-system name) v))
(error "no satisfaction: ~S version ~A not ~A" name v true))))
(test :versioned-system-1 "1.0")
(test :versioned-system-2 "1.0")
(test :versioned-system-3 "2.0" nil))
......
;;; -*- Lisp -*-
(asdf:defsystem test1
(asdf:defsystem test1
:components ((:file "file2" :in-order-to ((compile-op (load-op "file1"))))
(:file "file1")))
(:file "file1")))
#|
1) from clean, check that all fasl files build and that some function
......
......@@ -20,7 +20,7 @@
(sleep 1) ; mtime has 1-second granularity, so pause here for fast machines
(asdf::run-shell-command "rm -f ~A"
(namestring (compile-file-pathname "file2")))
(namestring (compile-file-pathname "file2")))
(asdf:operate 'asdf:load-op 'test1)
(assert (= file1-date (file-write-date (compile-file-pathname "file1"))))
(assert (file-write-date (compile-file-pathname "file2")))
......
......@@ -2,7 +2,7 @@
(asdf:defsystem test2b
:version "1.0"
:components ((:file "file2" :in-order-to ((compile-op (load-op "file1"))))
(:file "file1"))
(:file "file1"))
:depends-on (version 'test2a "1.1"))
......@@ -3,12 +3,12 @@
(load "../asdf")
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
;(trace asdf::perform)
;(trace asdf::find-component)
;(trace asdf::traverse)
;(trace asdf::perform)
;(trace asdf::find-component)
;(trace asdf::traverse)
(asdf:oos 'asdf:load-op 'test2b1)
(assert (and (probe-file (compile-file-pathname "file3"))
(probe-file (compile-file-pathname "file4"))))