Commit cda2cab5 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.26.139: make a clos variable ignorable to make allegro happy.

parent 3334b3c0
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
:licence "MIT" :licence "MIT"
:description "Another System Definition Facility" :description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems." :long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.26.138" ;; to be automatically updated by make bump-version :version "2.26.139" ;; to be automatically updated by make bump-version
:depends-on () :depends-on ()
:components ((:module "build" :components ((:file "asdf")))) :components ((:module "build" :components ((:file "asdf"))))
:in-order-to (#+asdf2.27 (compile-op (monolithic-load-concatenated-source-op asdf/defsystem)))) :in-order-to (#+asdf2.27 (compile-op (monolithic-load-concatenated-source-op asdf/defsystem))))
......
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- ;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.138: Another System Definition Facility. ;;; This is ASDF 2.26.139: Another System Definition Facility.
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: ;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>. ;;; please mail to <asdf-devel@common-lisp.net>.
......
...@@ -177,7 +177,7 @@ by /bin/sh in POSIX" ...@@ -177,7 +177,7 @@ by /bin/sh in POSIX"
(defmethod slurp-input-stream (x stream (defmethod slurp-input-stream (x stream
&key linewise prefix (element-type 'character) buffer-size &key linewise prefix (element-type 'character) buffer-size
&allow-other-keys) &allow-other-keys)
(declare (ignorable linewise prefix element-type buffer-size)) (declare (ignorable stream linewise prefix element-type buffer-size))
(cond (cond
#+(or gcl<2.7 genera) #+(or gcl<2.7 genera)
((functionp x) (funcall x stream)) ((functionp x) (funcall x stream))
......
...@@ -35,7 +35,7 @@ ...@@ -35,7 +35,7 @@
;; "2.345.6" would be a development version in the official upstream ;; "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.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 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
(asdf-version "2.26.138") (asdf-version "2.26.139")
(existing-asdf (find-class (find-symbol* :component :asdf nil) nil)) (existing-asdf (find-class (find-symbol* :component :asdf nil) nil))
(existing-version *asdf-version*) (existing-version *asdf-version*)
(already-there (equal asdf-version existing-version)) (already-there (equal asdf-version existing-version))
......
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