From 3764205ea2b423456a7cb0d4b53c90c77479721d Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Tue, 9 Oct 2007 13:08:49 +0000
Subject: [PATCH] added missing .asd file

---
 closure-common.asd | 57 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 closure-common.asd

diff --git a/closure-common.asd b/closure-common.asd
new file mode 100644
index 0000000..b2f9869
--- /dev/null
+++ b/closure-common.asd
@@ -0,0 +1,57 @@
+(defpackage :closure-common-system
+  (:use :asdf :cl)
+  (:export #:*utf8-runes-readtable*))
+
+(in-package :closure-common-system)
+
+(defvar *utf8-runes-readtable*)
+
+(defclass closure-source-file (cl-source-file) ())
+
+#+sbcl
+(defmethod perform :around ((o compile-op) (s closure-source-file))
+  ;; shut up already.  Correctness first.
+  (handler-bind ((sb-ext:compiler-note #'muffle-warning))
+    (let (#+sbcl (*compile-print* nil))
+      (call-next-method))))
+
+#-(or rune-is-character rune-is-integer)
+(progn
+  (format t "~&;;; Checking for wide character support...")
+  (force-output)
+  (pushnew (dotimes (x 65536
+                      (progn
+                        (format t " ok, characters have at least 16 bits.~%")
+                        :rune-is-character))
+             (unless (or (<= #xD800 x #xDFFF)
+			 (and (< x char-code-limit) (code-char x)))
+	       (print (code-char x))
+               (format t " no, reverting to octet strings.~%")
+               (return :rune-is-integer)))
+           *features*))
+
+#-rune-is-character
+(format t "~&;;; Building Closure with (UNSIGNED-BYTE 16) RUNES~%")
+
+#+rune-is-character
+(format t "~&;;; Building Closure with CHARACTER RUNES~%") 
+
+(defsystem :closure-common
+    :default-component-class closure-source-file
+    :serial t
+    :components
+    ((:file "package")
+     (:file "definline")
+     (:file runes
+            :pathname
+             #-rune-is-character "runes"
+             #+rune-is-character "characters")
+     #+rune-is-integer (:file "utf8")
+     (:file "syntax")
+     #-x&y-streams-are-stream (:file "encodings")
+     #-x&y-streams-are-stream (:file "encodings-data")
+     #-x&y-streams-are-stream (:file "xstream")
+     #-x&y-streams-are-stream (:file "ystream")
+     #+x&y-streams-are-stream (:file #+scl "stream-scl")
+     )
+    :depends-on (#-scl :trivial-gray-streams))