mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-15 14:51:14 -08:00
Code Issues Projects Releases Packages Wiki Activity

prevent annoying ASDF warning

Browse source
This commit is contained in:
pls.153 2022-03-16 08:17:12 +01:00
parent 9dfa11f0a3
commit 41e29715ce
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
platforms/shared/make.lisp
View file

@ -103,12 +103,16 @@
;; cross-compile *.o file without even trying to build useless
;; cross-compiled *.fas file, which would give a 'ld' error
;; when cross-compiling for iOS (wrong flags)
(if (or (not (probe-file object-file))
(> (file-write-date input-file)
(file-write-date object-file)))
(apply 'compile-file input-file
:output-file (list* object-file :system-p t keywords))
object-file))))
(when (or (not (probe-file object-file))
(> (file-write-date input-file)
(file-write-date object-file)))
(apply 'compile-file input-file
:output-file (list* object-file :system-p t keywords)))
(let ((name (namestring object-file)))
(setf name (cl-user::cc (subseq name 0 (1- (length name))) "fas"))
;; create dummy to make ASDF happy
(open name :direction :probe :if-does-not-exist :create)
(pathname name)))))
(values output-truename warnings-p failure-p))))
(in-package :cl-user)