Commit 2ed6f5b9 authored by Daniel Kochmański's avatar Daniel Kochmański Committed by Francois-Rene Rideau
Browse files

Fix typo with in cond statement, that broke make-build.

tests: add minimal make-build test

[Patch originally by Daniel Kochmański, tweaked by Faré]
parent 8366db2e
......@@ -503,12 +503,12 @@ itself.")) ;; operation on a system and its dependencies
`(,(make-library-system
"cmp" (compiler-library-pathname))))
,@(unless (or (no-uiop c) (has-it-p "uiop") (has-it-p "asdf"))
`(cond
((system-source-directory :uiop) `(,(find-system :uiop)))
((system-source-directory :asdf) `(,(find-system :asdf)))
(t `(,@(if-let (uiop (uiop-library-pathname))
`(,(make-library-system "uiop" uiop)))
,(make-library-system "asdf" (asdf-library-pathname))))))
(cond
((system-source-directory :uiop) `(,(find-system :uiop)))
((system-source-directory :asdf) `(,(find-system :asdf)))
(t `(,@(if-let (uiop (uiop-library-pathname))
`(,(make-library-system "uiop" uiop)))
,(make-library-system "asdf" (asdf-library-pathname))))))
,@deps)))))
(defmethod perform ((o link-op) (c system))
......
;;;; a.lisp
(defpackage :sample
(:use #:cl)
(:export #:loaded))
(in-package :sample)
(defparameter loaded t)
;;;; foo.asd
(asdf:defsystem #:sample-system
:serial t
:components ((:file "a")))
;;; -*- Lisp -*-
(DBG "build sample-system. Should load from sample-system/")
(setf *central-registry* (list (subpathname *test-directory* "sample-system/")))
(make-build 'sample-system
:type :program :monolithic t
:name-suffix ""
#+ecl :epilogue-code #+ecl '(println "blue sky"))
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