Commit 468aa14f authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Make things work better with clisp

parent 4a27b93a
......@@ -72,7 +72,8 @@ to the base of the system."
(operating-on-asdf-component-constituent (comp)
(unless (asdf:component-property comp 'last-loaded-as-source)
(setf (asdf:component-property comp 'last-loaded-as-source)
(and (fine-grain-instrumented-load ;;load
(and (#+sbcl fine-grain-instrumented-load ;;load
#-sbcl instrumented-load
source)
(get-universal-time)))))))
......@@ -227,7 +228,10 @@ to the base of the system."
;; :cull-redundant cull-redundant
;; :debug-object-types debug-object-types
:base-pathname base-pathname))))))
(rename-file tmp-file-name (first (asdf:output-files op c)))))
(let ((destination-file (first (asdf:output-files op c))))
#+clisp (delete-file destination-file)
(rename-file tmp-file-name destination-file
#+clozure :if-exists #+clozure :rename-and-delete))))
;;; Reading the component list back into asdf defsystems
......
......@@ -635,10 +635,10 @@
(output-systems-and-dependencies-p t))
(let ((*print-case* :downcase))
(format stream ";;; This file contains -*- lisp -*- expressions.~%")
(format stream "~@<;;; ~@;AUTO-GENERATED file from system definition ~
of system ~A. Instead of directly editing this ~
file, please edit the system definition~P ~
and re-generate this file.~:@>"
(format stream ";;; AUTO-GENERATED file from system definition ~
of system ~A. Instead of directly editing this ~
file, please edit the system definition~P ~
and re-generate this file."
(mapcar #'asdf:component-name (mapcar #'first dependencies))
(length dependencies))
(format stream "~&(~%")
......
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