require-system fails to not load the second time around
Bug #1622436 reported by
Faré
This bug affects 1 person
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
ASDF |
Fix Released
|
Undecided
|
Faré |
Bug Description
;;;;; bug.asd:
(defsystem "bug" :components ((:file "a")))
(defvar *loaded-times* 0)
(incf *loaded-times*)
(format t "This asd file was loaded ~D times~%" *loaded-times*)
;;;;; a.lisp:
(defpackage :bug (:use :cl))
(in-package :bug)
(eval-when (:load-toplevel) (defparameter *time* :load-toplevel))
(eval-when (:compile-toplevel) (defparameter *time* :compile-toplevel))
(eval-when (:execute) (defparameter *time* :execute))
(eval-when (:load-toplevel :compile-toplevel :execute) (format t "~&It's ~A time!~%" *time*))
(require-system :bug)
(require-system :bug) ;; recompiles the system.
Changed in asdf: | |
milestone: | none → 3.3 |
status: | Fix Committed → Fix Released |
To post a comment you must log in.
There is now the beginning of a test case at the end of test-force.script (as of 3.1.7.17).