From 3af9573a837a2dfec107b2cc497b5bd7da5b6ebc Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Sat, 22 Oct 2011 19:10:53 -0400 Subject: [PATCH] 2.017.24: function-ify the lambdas for the sake of (shudder) Genera. --- asdf.asd | 2 +- asdf.lisp | 12 ++++++------ 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/asdf.asd b/asdf.asd index 9bc955b0..77655112 100644 --- a/asdf.asd +++ b/asdf.asd @@ -14,7 +14,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.017.23" ;; to be automatically updated by bin/bump-revision + :version "2.017.24" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf") diff --git a/asdf.lisp b/asdf.lisp index 6717f0c0..a8a5daf4 100755 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- -;;; This is ASDF 2.017.23: Another System Definition Facility. +;;; This is ASDF 2.017.24: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. @@ -110,7 +110,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.017.23") + (asdf-version "2.017.24") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -2368,9 +2368,9 @@ recursive calls to traverse.") (*compile-file-failure-behaviour* (operation-on-failure operation))) (multiple-value-bind (output warnings-p failure-p) (call-with-around-compile-hook - c (lambda () - (apply *compile-op-compile-file-function* source-file - :output-file output-file (compile-op-flags operation)))) + c #'(lambda () + (apply *compile-op-compile-file-function* source-file + :output-file output-file (compile-op-flags operation)))) (unless output (error 'compile-error :component c :operation operation)) (when failure-p @@ -2476,7 +2476,7 @@ recursive calls to traverse.") (declare (ignorable o)) (let ((source (component-pathname c))) (setf (component-property c 'last-loaded-as-source) - (and (call-with-around-compile-hook c (lambda () (load source))) + (and (call-with-around-compile-hook c #'(lambda () (load source))) (get-universal-time))))) (defmethod perform ((operation load-source-op) (c static-file)) -- GitLab