common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

1.0.22.19: Canonicalize whitespace in .asd files.

Browse source
This commit is contained in:
Richard M Kreuter 2008-11-24 15:56:11 +00:00
parent 3d446163ad
commit bf25f93615
10 changed files with 51 additions and 52 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
contrib/asdf-install/asdf-install.asd
View file

@ -1,6 +1,6 @@
;;; -*- Lisp -*-
(defpackage #:asdf-install-system
(defpackage #:asdf-install-system
(:use #:cl #:asdf))
(in-package #:asdf-install-system)
@ -11,8 +11,8 @@
#+sb-building-contrib :pathname
#+sb-building-contrib "SYS:CONTRIB;ASDF-INSTALL;"
:components ((:file "defpackage")
(:file "installer" :depends-on ("defpackage"))))
(:file "installer" :depends-on ("defpackage"))))
(defmethod perform :after ((o load-op) (c (eql (find-system :asdf-install))))
(provide 'asdf-install))

6
contrib/sb-aclrepl/sb-aclrepl.asd
View file

@ -9,9 +9,9 @@
#+sb-building-contrib :pathname
#+sb-building-contrib "SYS:CONTRIB;SB-ACLREPL;"
:components ((:file "toplevel")
(:file "repl" :depends-on ("toplevel"))
(:file "inspect" :depends-on ("repl"))
(:file "debug" :depends-on ("repl"))))
(:file "repl" :depends-on ("toplevel"))
(:file "inspect" :depends-on ("repl"))
(:file "debug" :depends-on ("repl"))))
(defmethod perform :after ((o load-op) (c (eql (find-system :sb-aclrepl))))
(provide 'sb-aclrepl))

36
contrib/sb-bsd-sockets/sb-bsd-sockets.asd
View file

@ -10,35 +10,35 @@
#+sb-building-contrib :pathname
#+sb-building-contrib "SYS:CONTRIB;SB-BSD-SOCKETS;"
:components ((:file "defpackage")
(:file "split" :depends-on ("defpackage"))
(:file "split" :depends-on ("defpackage"))
#+win32
(:file "win32-lib")
#-win32 (sb-grovel:grovel-constants-file
"constants"
:package :sockint
(:file "win32-lib")
#-win32 (sb-grovel:grovel-constants-file
"constants"
:package :sockint
:do-not-grovel #.(progn #-sb-building-contrib t)
:depends-on ("defpackage"))
#+win32 (sb-grovel:grovel-constants-file
"win32-constants"
:package :sockint
:depends-on ("defpackage"))
#+win32 (sb-grovel:grovel-constants-file
"win32-constants"
:package :sockint
:do-not-grovel #.(progn #-sb-building-contrib t)
:depends-on ("defpackage" "win32-lib"))
:depends-on ("defpackage" "win32-lib"))
#+win32 (:file "win32-sockets"
:depends-on ("win32-constants"))
(:file "sockets"
:depends-on ("win32-constants"))
(:file "sockets"
:depends-on #-win32 ("constants")
#+win32 ("win32-sockets"))
(:file "sockopt" :depends-on ("sockets"))
(:file "sockopt" :depends-on ("sockets"))
(:file "inet" :depends-on ("sockets" "split"))
(:file "local" :depends-on ("sockets" "split"))
(:file "name-service" :depends-on ("sockets"))
(:file "misc" :depends-on ("sockets"))
(:static-file "NEWS")
;; (:static-file "INSTALL")
;; (:static-file "README")
;; (:static-file "index" :pathname "index.html")
(:static-file "TODO")))
(:static-file "NEWS")
;; (:static-file "INSTALL")
;; (:static-file "README")
;; (:static-file "index" :pathname "index.html")
(:static-file "TODO")))
(defmethod perform :after ((o load-op) (c (eql (find-system :sb-bsd-sockets))))
(provide 'sb-bsd-sockets))

2
contrib/sb-cltl2/sb-cltl2.asd
View file

@ -8,7 +8,7 @@
#+sb-building-contrib :pathname
#+sb-building-contrib "SYS:CONTRIB;SB-CLTL2;"
:components ((:file "defpackage")
(:file "compiler-let" :depends-on ("defpackage"))
(:file "compiler-let" :depends-on ("defpackage"))
(:file "macroexpand" :depends-on ("defpackage"))
(:file "env" :depends-on ("defpackage"))))

4
contrib/sb-grovel/sb-grovel.asd
View file

@ -8,8 +8,8 @@
#+sb-building-contrib :pathname
#+sb-building-contrib "SYS:CONTRIB;SB-GROVEL;"
:components ((:file "defpackage")
(:file "def-to-lisp" :depends-on ("defpackage"))
(:file "foreign-glue" :depends-on ("defpackage"))))
(:file "def-to-lisp" :depends-on ("defpackage"))
(:file "foreign-glue" :depends-on ("defpackage"))))
(defmethod perform :after ((o load-op) (c (eql (find-system :sb-grovel))))
(provide 'sb-grovel))

3
contrib/sb-md5/sb-md5.asd
View file

@ -1,6 +1,6 @@
;;; -*- Lisp -*-
(defpackage #:sb-md5-system
(defpackage #:sb-md5-system
(:use #:cl #:asdf))
(in-package #:sb-md5-system)
@ -27,4 +27,3 @@
(defmethod perform ((o test-op) (c (eql (find-system :sb-md5-tests))))
(or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
(error "test-op failed")))

18
contrib/sb-posix/sb-posix.asd
View file

@ -9,13 +9,13 @@
#+sb-building-contrib :pathname
#+sb-building-contrib "SYS:CONTRIB;SB-POSIX;"
:components ((:file "defpackage")
(:file "designator" :depends-on ("defpackage"))
(:file "macros" :depends-on ("designator"))
(sb-grovel:grovel-constants-file
"constants"
(:file "designator" :depends-on ("defpackage"))
(:file "macros" :depends-on ("designator"))
(sb-grovel:grovel-constants-file
"constants"
:do-not-grovel #.(progn #-sb-building-contrib t)
:package :sb-posix :depends-on ("defpackage"))
(:file "interface" :depends-on ("constants" "macros" "designator"))))
:package :sb-posix :depends-on ("defpackage"))
(:file "interface" :depends-on ("constants" "macros" "designator"))))
(defsystem sb-posix-tests
:depends-on (sb-rt)
@ -31,9 +31,9 @@
(defmethod perform ((o test-op) (c (eql (find-system :sb-posix-tests))))
(funcall (intern "DO-TESTS" (find-package "SB-RT")))
(let ((failures (funcall (intern "PENDING-TESTS" "SB-RT")))
(ignored-failures (loop for sym being the symbols of :sb-posix-tests
if (search ".ERROR" (symbol-name sym))
collect sym)))
(ignored-failures (loop for sym being the symbols of :sb-posix-tests
if (search ".ERROR" (symbol-name sym))
collect sym)))
(cond
((null failures)
t)

24
contrib/sb-rotate-byte/sb-rotate-byte.asd
View file

@ -1,6 +1,6 @@
;;; -*- Lisp -*-
(cl:defpackage #:sb-rotate-byte-system
(cl:defpackage #:sb-rotate-byte-system
(:use #:asdf #:cl))
(cl:in-package #:sb-rotate-byte-system)
@ -8,20 +8,20 @@
:version "0.1"
#+sb-building-contrib :pathname
#+sb-building-contrib "SYS:CONTRIB;SB-ROTATE-BYTE;"
:components
:components
((:file "package")
(:file "compiler" :depends-on ("package"))
(:module "vm"
:depends-on ("compiler")
:components
((:file "x86-vm"
:in-order-to ((compile-op (feature :x86))))
(:file "ppc-vm"
:in-order-to ((compile-op (feature :ppc)))))
:pathname
#+sb-building-contrib "SYS:CONTRIB;SB-ROTATE-BYTE;"
#-sb-building-contrib #.(make-pathname :directory '(:relative))
:if-component-dep-fails :ignore)
:depends-on ("compiler")
:components
((:file "x86-vm"
:in-order-to ((compile-op (feature :x86))))
(:file "ppc-vm"
:in-order-to ((compile-op (feature :ppc)))))
:pathname
#+sb-building-contrib "SYS:CONTRIB;SB-ROTATE-BYTE;"
#-sb-building-contrib #.(make-pathname :directory '(:relative))
:if-component-dep-fails :ignore)
(:file "rotate-byte" :depends-on ("compiler"))))
(defmethod perform :after ((o load-op) (c (eql (find-system :sb-rotate-byte))))

2
tools-for-build/whitespacely-canonical-filenames
View file

@ -9,7 +9,7 @@
# glob patterns for source files in languages for which the
# canonicalization is safe (not affecting meaning, at least given the
# conservative syntax used in SBCL sources)
source_extensions='.lisp .lisp-expr .c .h'
source_extensions='.lisp .lisp-expr .c .h .asd'
# other candidates:
# .sh: if ./make.sh is altered, Bad Things happen
# ?

2
version.lisp-expr
View file

@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
"1.0.22.18"
"1.0.22.19"