require-system fails to not load the second time around

Bug #1622436 reported by Faré on 2016-09-12
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
ASDF
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.

Faré (fahree) wrote :

There is now the beginning of a test case at the end of test-force.script (as of 3.1.7.17).

Faré (fahree) wrote :
Changed in asdf:
assignee: nobody → Faré (fahree)
status: New → Fix Committed
Changed in asdf:
milestone: none → 3.3
status: Fix Committed → Fix Released
To post a comment you must log in.
This report contains Public information  Edit
Everyone can see this information.

Other bug subscribers