Commit 472b7eb8 authored by Dave Cooper's avatar Dave Cooper

updated cl-lite to include defsystem-depends-on information

parent b39c1c33
......@@ -299,6 +299,14 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
(if (stringp sexpr)
(format nil "%%remove%%~a%%remove%%" sexpr) sexpr)))
(asdf-defsystem-depends-on (let ((sexpr (glisp:sexpr-from-file
(merge-pathnames (make-pathname :name "defsystem-depends-on"
:type "isc")
(the ppathname)))))
(if (stringp sexpr)
(format nil "%%remove%%~a%%remove%%" sexpr) sexpr)))
(additional-asd-code (let ((asd-code-file
(merge-pathnames (make-pathname :name "additional-asd-code"
......@@ -339,9 +347,9 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
:serial t
:version ,(the version)
:depends-on ,(the asdf-depends-on)
"%%remove%%#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)%%remove%%"
,(format nil "%%remove%%#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings ~{~s~})%%remove%%" (the asdf-defsystem-depends-on))
,(format nil "%%remove%%#+asdf-unicode :defsystem-depends-on #+asdf-unicode (~{~s~})%%remove%%" (the asdf-defsystem-depends-on))
"%%remove%%#+asdf-encodings :encoding #+asdf-encodings :utf-8%%remove%%"
;;
;; FLAG -- maybe can get rid of binaries and need to call (the compile-and-load)
;;
......
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