Commit 6ff0c4b5 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Merge branch 'master' of ssh://common-lisp.net/project/asdf/public_html/asdf

parents e181ded5 15558778

asdf.asd

+1 −1
Original line number Diff line number Diff line
@@ -74,7 +74,7 @@ 
  :licence "MIT"

  :description "Another System Definition Facility"

  :long-description "ASDF builds Common Lisp software organized into defined systems."

  :version "3.0.2.7" ;; to be automatically updated by make bump-version

  :version "3.0.2.8" ;; to be automatically updated by make bump-version

  :depends-on ()

  #+asdf3 :encoding #+asdf3 :utf-8

  ;; For most purposes, asdf itself specially counts as a builtin system.

header.lisp

+1 −1
Original line number Diff line number Diff line 
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-

;;; This is ASDF 3.0.2.7: Another System Definition Facility.

;;; This is ASDF 3.0.2.8: Another System Definition Facility.

;;;

;;; Feedback, bug reports, and patches are all welcome:

;;; please mail to <asdf-devel@common-lisp.net>.

test/test-around-compile-lambda.script.dont-run

deleted100644 → 0
+0 −12
Original line number Diff line number Diff line 
;;; -*- Lisp -*-





(progn

  (def-test-system test-around-compile-lambda

    :around-compile (lambda (thunk)

                      (let ((*read-base* 2))

                        (funcall thunk)))

    ;; :depends-on ((:version :asdf "2.017.18")) ; no :around-compile before that.

    :components ((:file "test")))

  (load-system 'test-around-compile-lambda :force t)

  (assert (= 3 (funcall 'add10 1)))) ;; add10 must have been compiled in base 2

test/test-around-compile.script

+18 −9
Original line number Diff line number Diff line 
;;; -*- Lisp -*-







(defun call-in-base-2 (thunk)

  (let ((*read-base* 2))

    (funcall thunk)))



(progn

(DBG "Testing around-compile with a function name")

(def-test-system test-around-compile

  :around-compile call-in-base-2

  ;; :depends-on ((:version :asdf "2.017.18")) ; no :around-compile before that.

  :components ((:file "test")))

(load-system 'test-around-compile :force t)

  (assert (= 3 (funcall 'add10 1)))) ;; add10 must have been compiled in base 2
 
(assert (= 3 (funcall 'add10 1))) ;; add10 must have been compiled in base 2



(fmakunbound 'add10)



(DBG "Testing around-compile with a lambda")

(def-test-system test-around-compile-lambda

  :around-compile (lambda (thunk)

                    (let ((*read-base* 2))

                      (funcall thunk)))

  :components ((:file "test")))

(load-system 'test-around-compile-lambda :force t)

(assert (= 3 (funcall 'add10 1))) ;; add10 must have been compiled in base 2

test/test-run-program.script

+1 −1
Original line number Diff line number Diff line
@@ -19,7 +19,7 @@ 
(unless (< 0 (run-shell-command "./bad-shell-command"))

  (error "Failed to capture exit status indicating shell command failure."))



#+asdf-unix

#+os-unix

(progn

  (DBG "Testing good shell command in current directory via run-shell-command")

  (unless (equal 0 (run-shell-command "./good-shell-command"))