merged.

Pascal J. Bourguignon [2014-03-30 17:52]
merged.
Filename
clisp/com.informatimago.clisp.asd
objcl/com.informatimago.objcl.asd
objcl/packages.lisp
rdp/com.informatimago.rdp.basic.example.asd
susv3/com.informatimago.susv3.asd
susv3/dirent.lisp
systems-for-quicklisp.sexp
tools/com.informatimago.tools.asd
tools/com.informatimago.tools.symbol.asd
tools/manifest.lisp
diff --git a/clisp/com.informatimago.clisp.asd b/clisp/com.informatimago.clisp.asd
index b35b27d..93b3a44 100644
--- a/clisp/com.informatimago.clisp.asd
+++ b/clisp/com.informatimago.clisp.asd
@@ -1,12 +1,12 @@
 ;;;; -*- mode:lisp;coding:utf-8 -*-
 ;;;;**************************************************************************
-;;;;FILE:               com.informatimago.clmisc.asd
+;;;;FILE:               com.informatimago.clisp.asd
 ;;;;LANGUAGE:           Common-Lisp
 ;;;;SYSTEM:             Common-Lisp
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
 ;;;;
-;;;;    ASD file to load the com.informatimago.clmisc library.
+;;;;    ASD file to load the com.informatimago.clisp library.
 ;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
@@ -16,7 +16,7 @@
 ;;;;LEGAL
 ;;;;    AGPL3
 ;;;;
-;;;;    Copyright Pascal J. Bourguignon 2010 - 2012
+;;;;    Copyright Pascal J. Bourguignon 2010 - 2014
 ;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
@@ -32,62 +32,69 @@
 ;;;;    along with this program.  If not, see http://www.gnu.org/licenses/
 ;;;;**************************************************************************

+#+clisp (when (find-package "LINUX") (pushnew :linux *features*))
+
 (asdf:defsystem :com.informatimago.clisp

-    ;; system attributes:
+  ;; system attributes:

-    :description "Clisp specific packages."
+  :description "Clisp specific packages."

-    :long-description "
+  :long-description "

 Various packages using clisp specific features (some of them could or
 should be made into implementation independant packages).

 "

-    :author     "Pascal J. Bourguignon <pjb@informatimago.com>"
-
-    :maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
-
-
-    :licence "AGPL3"
-
-    ;; component attributes:
-
-    :name "Informatimago Common Lisp Clisp Specific Packages"
-
-    :version "1.2.1"
-
-    :properties ((#:author-email                   . "pjb@informatimago.com")
-                 (#:date                           . "Autumn 2010")
-                 ((#:albert #:output-dir)          . "/tmp/documentation/com.informatimago.clmisc/")
-                 ((#:albert #:formats)             . ("docbook"))
-                 ((#:albert #:docbook #:template)  . "book")
-                 ((#:albert #:docbook #:bgcolor)   . "white")
-                 ((#:albert #:docbook #:textcolor) . "black"))
-
-    #+asdf-unicode :encoding #+asdf-unicode :utf-8
-
-    :depends-on ("com.informatimago.common-lisp.cesarum")
-
-    :components ((:file "syslog")
-                 (:file "disk")
-                 ;; (:file "objc")
-                 (:file "string")
-                 (:file "fifo-stream")
-                 (:file "iotask")
-                 (:file "rfc1413" :depends-on ("iotask"))
-                 ;; :shared-object is not known of asdf, but is defined by clg-tools…
-                 ;; (:shared-object "libraw-memory"
-                 ;;                 :components ((:c-source-file "raw-memory-lib"))
-                 ;;                 :depends-on ())
-                 ;; (:file "raw-memory" :depends-on ("libraw-memory"))
-                 #+linux (:file "susv3")
-                 #+linux (:file "susv3-mc3" :depends-on ("susv3"))
-                 #+linux (:file "susv3-xsi" :depends-on ("susv3"))
-                 #+linux (:file "script" :depends-on ("string"))
-                 #+linux (:file "shell")
-                 #+linux (:file "xterm" :depends-on ("susv3"))
-                 #+linux (:file "make-volumes" :depends-on ("susv3"))))
+  :author     "Pascal J. Bourguignon <pjb@informatimago.com>"
+
+  :maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
+
+
+  :licence "AGPL3"
+
+  ;; component attributes:
+
+  :name "Informatimago Common Lisp Clisp Specific Packages"
+
+  :version "1.2.2"
+
+  :properties ((#:author-email                   . "pjb@informatimago.com")
+               (#:date                           . "Spring 2014")
+               ((#:albert #:output-dir)          . "/tmp/documentation/com.informatimago.clmisc/")
+               ((#:albert #:formats)             . ("docbook"))
+               ((#:albert #:docbook #:template)  . "book")
+               ((#:albert #:docbook #:bgcolor)   . "white")
+               ((#:albert #:docbook #:textcolor) . "black"))
+
+  #+asdf-unicode :encoding #+asdf-unicode :utf-8
+
+  :depends-on ("com.informatimago.common-lisp.cesarum")
+
+  :components
+  #+clisp ((:file "syslog")
+           (:file "disk")
+           ;; (:file "objc")
+           (:file "string")
+           (:file "fifo-stream")
+           (:file "iotask")
+           (:file "rfc1413" :depends-on ("iotask"))
+           ;; :shared-object is not known of asdf, but is defined by clg-tools…
+           ;; (:shared-object "libraw-memory"
+           ;;                 :components ((:c-source-file "raw-memory-lib"))
+           ;;                 :depends-on ())
+           ;; (:file "raw-memory" :depends-on ("libraw-memory"))
+           #+linux (:file "susv3")
+           #+linux (:file "susv3-mc3" :depends-on ("susv3"))
+           #+linux (:file "susv3-xsi" :depends-on ("susv3"))
+           #+linux (:file "script" :depends-on ("string"))
+           #+linux (:file "shell")
+           #+linux (:file "xterm" :depends-on ("susv3"))
+           #+linux (:file "make-volumes" :depends-on ("susv3")))
+  #-clisp ())
+
+#+(and clisp (not linux)) (warn "System ~A is incomplete without the LINUX package." :com.informatimago.clisp)
+#-clisp (warn "System ~A is useless on ~A" :com.informatimago.clisp (lisp-implementation-type))

 ;;;; THE END ;;;;
diff --git a/objcl/com.informatimago.objcl.asd b/objcl/com.informatimago.objcl.asd
index abeff87..31c12db 100644
--- a/objcl/com.informatimago.objcl.asd
+++ b/objcl/com.informatimago.objcl.asd
@@ -16,7 +16,7 @@
 ;;;;LEGAL
 ;;;;    AGPL3
 ;;;;
-;;;;    Copyright Pascal J. Bourguignon 2012 - 2012
+;;;;    Copyright Pascal J. Bourguignon 2012 - 2014
 ;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
@@ -34,11 +34,11 @@

 (asdf:defsystem :com.informatimago.objcl

-    ;; system attributes:
-
-    :description "Reader macros and tools to program with Objective-C object libraries."
+  ;; system attributes:
+
+  :description "Reader macros and tools to program with Objective-C object libraries."

-    :long-description "
+  :long-description "

 Defines readers macros to provide an Objective-C -like syntax to wrap
 over the Objective-C FFI.
@@ -47,38 +47,43 @@ Current implementation work only on ccl, but it should be extended to
 cover generic FFI to both Apple and GNUstep objc2 runtimes.

 "
-
-
-    :author     "Pascal Bourguignon <pjb@informatimago.com>"
+
+
+  :author     "Pascal Bourguignon <pjb@informatimago.com>"

-    :maintainer "Pascal Bourguignon <pjb@informatimago.com>"
+  :maintainer "Pascal Bourguignon <pjb@informatimago.com>"

-    :licence "AGPL3"
+  :licence "AGPL3"

-    ;; component attributes:
-
-    :name "Reader macros to implement an Objective-CL syntax."
-
-    :version "0.9.1"
-
-    :properties ((#:author-email                   . "pjb@informatimago.com")
-                 (#:date                           . "Spring 2011")
-                 ((#:albert #:output-dir)          . "../documentation/com.informatimago.objc/")
-                 ((#:albert #:formats)             . ("docbook"))
-                 ((#:albert #:docbook #:template)  . "book")
-                 ((#:albert #:docbook #:bgcolor)   . "white")
-                 ((#:albert #:docbook #:textcolor) . "black"))
-
-    #+asdf-unicode :encoding #+asdf-unicode :utf-8
+  ;; component attributes:
+
+  :name "Reader macros to implement an Objective-CL syntax."
+
+  :version "0.10.1"
+
+  :properties ((#:author-email                   . "pjb@informatimago.com")
+               (#:date                           . "Spring 2014")
+               ((#:albert #:output-dir)          . "../documentation/com.informatimago.objc/")
+               ((#:albert #:formats)             . ("docbook"))
+               ((#:albert #:docbook #:template)  . "book")
+               ((#:albert #:docbook #:bgcolor)   . "white")
+               ((#:albert #:docbook #:textcolor) . "black"))
+
+  #+asdf-unicode :encoding #+asdf-unicode :utf-8

-    :depends-on ()
-
-    :components ((:file "packages")
-                 (:file "simple-test"        :depends-on ("packages"))
-                 (:file "mac-roman"          :depends-on ("packages"))
-                 #+ccl (:file "oclo-ccl"     :depends-on ("packages"))
-                 (:file "oclo"               :depends-on ("packages" #+ccl "oclo-ccl"))
-                 (:file "objcl"              :depends-on ("packages" "oclo"))
-                 (:file "test-objcl"         :depends-on ("packages" "objcl" "simple-test"))))
+  :depends-on ()
+
+  :components
+  #+(and ccl darwin)
+  ((:file "packages")
+   (:file "simple-test"        :depends-on ("packages"))
+   (:file "mac-roman"          :depends-on ("packages"))
+   (:file "oclo-ccl"           :depends-on ("packages"))
+   (:file "oclo"               :depends-on ("packages" "oclo-ccl"))
+   (:file "objcl"              :depends-on ("packages" "oclo")) ; needs the NS package
+   (:file "test-objcl"         :depends-on ("packages" "objcl" "simple-test")))
+  #-(and ccl darwin)
+  ())

+#-(and ccl darwin) (warn "System ~A is incomplete on ~A" :com.informatimago.objcl (lisp-implementation-type))
 ;;;; THE END ;;;;
diff --git a/objcl/packages.lisp b/objcl/packages.lisp
index 44092c9..75b5eb1 100644
--- a/objcl/packages.lisp
+++ b/objcl/packages.lisp
@@ -40,8 +40,9 @@
 ;;        (let ((mainBundle (#/mainBundle ns:ns-bundle)))
 ;;          (#/initWithPath: mainBundle (namestring (truename ccl::*cocoa-ide-path*)))))))

-#+ccl (eval-when (:compile-toplevel :load-toplevel :execute)
-        (require :cocoa))
+#+(and ccl darwin)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (require :cocoa))


 (defpackage "COM.INFORMATIMAGO.SIMPLE-TEST"
@@ -58,7 +59,7 @@ This package defines a simple test tool.
               "OCLO")
   (:use "CL")

-  #+ccl
+  #+(and ccl cocoa)
   (:shadowing-import-from "OBJC"
                           "*OBJC-DESCRIPTION-MAX-LENGTH*"
                           "@CLASS"
@@ -87,7 +88,7 @@ This package defines a simple test tool.
                           "WITH-AUTORELEASE-POOL"
                           "WITH-AUTORELEASED-NSSTRINGS")

-  #+ccl
+  #+(and ccl cocoa)
   (:shadowing-import-from "CCL"
                           #-ccl-1.9 "*COCOA-APPLICATION-FRAMEWORKS*"
                           "@"
diff --git a/rdp/com.informatimago.rdp.basic.example.asd b/rdp/com.informatimago.rdp.basic.example.asd
index a23e624..736579c 100644
--- a/rdp/com.informatimago.rdp.basic.example.asd
+++ b/rdp/com.informatimago.rdp.basic.example.asd
@@ -34,11 +34,11 @@

 (asdf:defsystem :com.informatimago.rdp.basic.example

-    ;; system attributes
-
-    :description "An example of parser generated in BASIC with the Recursive Descent Parser Generator."
+  ;; system attributes
+
+  :description "An example of parser generated in BASIC with the Recursive Descent Parser Generator."

-    :long-description "
+  :long-description "

 The grammar of our simple expression programming language is
 attributed with actions written in BASIC, which, along with the BASIC
@@ -46,31 +46,34 @@ target-language method will let the RDPG generate a parser in BASIC.

 "

-    :author     "Pascal Bourguignon <pjb@informatimago.com>"
+  :author     "Pascal Bourguignon <pjb@informatimago.com>"

-    :maintainer "Pascal Bourguignon <pjb@informatimago.com>"
-
-    :licence "AGPL3"
+  :maintainer "Pascal Bourguignon <pjb@informatimago.com>"
+
+  :licence "AGPL3"

-    ;; component attributes:
-
-    :name "Recursive Descent Parser Generator -- Example generated in BASIC"
+  ;; component attributes:
+
+  :name "Recursive Descent Parser Generator -- Example generated in BASIC"

-    :version "1.0.1"
+  :version "1.0.1"

-    :properties ((#:author-email                   . "pjb@informatimago.com")
-                 (#:date                           . "Summer 2011")
-                 ((#:albert #:output-dir)          . "../documentation/com.informatimago.rdp.basic.example/")
-                 ((#:albert #:formats)             . ("docbook"))
-                 ((#:albert #:docbook #:template)  . "book")
-                 ((#:albert #:docbook #:bgcolor)   . "white")
-                 ((#:albert #:docbook #:textcolor) . "black"))
-
-    #+asdf-unicode :encoding #+asdf-unicode :utf-8
+  :properties ((#:author-email                   . "pjb@informatimago.com")
+               (#:date                           . "Summer 2011")
+               ((#:albert #:output-dir)          . "../documentation/com.informatimago.rdp.basic.example/")
+               ((#:albert #:formats)             . ("docbook"))
+               ((#:albert #:docbook #:template)  . "book")
+               ((#:albert #:docbook #:bgcolor)   . "white")
+               ((#:albert #:docbook #:textcolor) . "black"))
+
+  #+asdf-unicode :encoding #+asdf-unicode :utf-8
+
+  :depends-on ("com.informatimago.rdp"
+               "com.informatimago.rdp.basic")
+
+  :components
+  #-bit-rotten ((:file "example-basic"))
+  #+bit-rotten ())

-    :depends-on ("com.informatimago.rdp"
-                 "com.informatimago.rdp.basic")
-
-    :components ((:file "example-basic")))

 ;;;; THE END ;;;;
diff --git a/susv3/com.informatimago.susv3.asd b/susv3/com.informatimago.susv3.asd
index 020e23b..bf8c5bb 100644
--- a/susv3/com.informatimago.susv3.asd
+++ b/susv3/com.informatimago.susv3.asd
@@ -16,7 +16,7 @@
 ;;;;LEGAL
 ;;;;    AGPL3
 ;;;;
-;;;;    Copyright Pascal J. Bourguignon 2010 - 2012
+;;;;    Copyright Pascal J. Bourguignon 2010 - 2014
 ;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
@@ -35,46 +35,51 @@

 (asdf:defsystem :com.informatimago.susv3

-    ;; system attributes:
+  ;; system attributes:

-    :description "A POSIX SUSv3 API for Common Lisp."
-
-    :long-description "
+  :description "A POSIX SUSv3 API for Common Lisp."
+
+  :long-description "

 Currently implemented: DIRENT, IPC and PROCESS APIs.

 "

-    :author     "Pascal Bourguignon <pjb@informatimago.com>"
-
-    :maintainer "Pascal Bourguignon <pjb@informatimago.com>"
+  :author     "Pascal Bourguignon <pjb@informatimago.com>"
+
+  :maintainer "Pascal Bourguignon <pjb@informatimago.com>"

-    :licence "AGPL3"
+  :licence "AGPL3"

-
-    ;; component attributes:
+
+  ;; component attributes:

-    :name "Informatimago Common Lisp POSIX SUSv3 API"
+  :name "Informatimago Common Lisp POSIX SUSv3 API"

-    :version "1.2.1"
+  :version "1.2.2"

-    :properties ((#:author-email                   . "pjb@informatimago.com")
-                 (#:date                           . "Autumn 2010")
-                 ((#:albert #:output-dir)          . "/tmp/documentation/com.informatimago.susv3/")
-                 ((#:albert #:formats)             . ("docbook"))
-                 ((#:albert #:docbook #:template)  . "book")
-                 ((#:albert #:docbook #:bgcolor)   . "white")
-                 ((#:albert #:docbook #:textcolor) . "black"))
+  :properties ((#:author-email                   . "pjb@informatimago.com")
+               (#:date                           . "Spring 2014")
+               ((#:albert #:output-dir)          . "/tmp/documentation/com.informatimago.susv3/")
+               ((#:albert #:formats)             . ("docbook"))
+               ((#:albert #:docbook #:template)  . "book")
+               ((#:albert #:docbook #:bgcolor)   . "white")
+               ((#:albert #:docbook #:textcolor) . "black"))

-    #+asdf-unicode :encoding #+asdf-unicode :utf-8
+  #+asdf-unicode :encoding #+asdf-unicode :utf-8

-    :depends-on ("com.informatimago.common-lisp.cesarum"
-                 "com.informatimago.common-lisp.heap"
-                 "com.informatimago.clisp")
+  :depends-on ("com.informatimago.common-lisp.cesarum"
+               "com.informatimago.common-lisp.heap"
+               "com.informatimago.clisp")

-    :components ((:file "tools")
-                 (:file "dirent"  :depends-on ("tools"))
-                 (:file "ipc"     :depends-on ("tools"))
-                 (:file "process" :depends-on ("ipc"))))
+  :components
+  #+(and clisp linux) ((:file "tools")
+             (:file "dirent"  :depends-on ("tools"))
+             (:file "ipc"     :depends-on ("tools"))
+             (:file "process" :depends-on ("ipc")))
+  #-(and clisp linux) ())
+
+#+(and clisp (not linux)) (warn "System ~A is incomplete without the LINUX package." :com.informatimago.sysv3)
+#-clisp (warn "System ~A is incomplete on ~A" :com.informatimago.sysv3 (lisp-implementation-type))

 ;;;; THE END ;;;;
diff --git a/susv3/dirent.lisp b/susv3/dirent.lisp
index 6a9f28a..e1fa836 100644
--- a/susv3/dirent.lisp
+++ b/susv3/dirent.lisp
@@ -49,7 +49,7 @@
   (:documentation
    "An API over SUSV3 and SUSV3-XSI dirent API.")
   (:use "COMMON-LISP"
-        "COM.INFORMATIMAGO.CLISP.RAW-MEMORY"
+        ;; "COM.INFORMATIMAGO.CLISP.RAW-MEMORY"
         "COM.INFORMATIMAGO.SUSV3.TOOLS"
         "FFI")
   (:import-from "COM.INFORMATIMAGO.CLISP.SUSV3"
diff --git a/systems-for-quicklisp.sexp b/systems-for-quicklisp.sexp
new file mode 100644
index 0000000..b400ae5
--- /dev/null
+++ b/systems-for-quicklisp.sexp
@@ -0,0 +1,53 @@
+(
+"com.informatimago.clext"
+"com.informatimago.clext.association"
+"com.informatimago.clisp"
+"com.informatimago.clmisc"
+"com.informatimago.common-lisp"
+"com.informatimago.common-lisp.apple-file"
+"com.informatimago.common-lisp.arithmetic"
+"com.informatimago.common-lisp.bank"
+"com.informatimago.common-lisp.cesarum"
+"com.informatimago.common-lisp.csv"
+"com.informatimago.common-lisp.data-encoding"
+"com.informatimago.common-lisp.diagram"
+"com.informatimago.common-lisp.ed"
+"com.informatimago.common-lisp.graphviz"
+"com.informatimago.common-lisp.heap"
+"com.informatimago.common-lisp.html-base"
+"com.informatimago.common-lisp.html-generator"
+"com.informatimago.common-lisp.html-parser"
+"com.informatimago.common-lisp.http"
+"com.informatimago.common-lisp.interactive"
+"com.informatimago.common-lisp.invoice"
+"com.informatimago.common-lisp.lisp"
+"com.informatimago.common-lisp.lisp-reader"
+"com.informatimago.common-lisp.lisp-sexp"
+"com.informatimago.common-lisp.lisp-text"
+"com.informatimago.common-lisp.lisp.ibcl"
+"com.informatimago.common-lisp.lisp.stepper"
+"com.informatimago.common-lisp.parser"
+"com.informatimago.common-lisp.picture"
+"com.informatimago.common-lisp.regexp"
+"com.informatimago.common-lisp.rfc2822"
+"com.informatimago.common-lisp.rfc3548"
+"com.informatimago.common-lisp.telnet"
+"com.informatimago.common-lisp.unix"
+"com.informatimago.languages.cxx"
+"com.informatimago.languages.lua"
+"com.informatimago.linc"
+"com.informatimago.lispdoc"
+"com.informatimago.objcl"
+"com.informatimago.rdp"
+"com.informatimago.rdp.basic"
+"com.informatimago.rdp.example"
+"com.informatimago.susv3"
+"com.informatimago.tools"
+"com.informatimago.tools.check-asdf"
+"com.informatimago.tools.make-depends"
+"com.informatimago.tools.manifest"
+"com.informatimago.tools.pathname"
+"com.informatimago.tools.quicklisp"
+"com.informatimago.tools.symbol"
+"com.informatimago.xcode"
+)
diff --git a/tools/com.informatimago.tools.asd b/tools/com.informatimago.tools.asd
index 11309e2..e8138fe 100644
--- a/tools/com.informatimago.tools.asd
+++ b/tools/com.informatimago.tools.asd
@@ -49,7 +49,7 @@

   :name "Informatimago Common Lisp Tools Agregate"

-  :version "1.0.0"
+  :version "1.0.1"

   :properties ((#:author-email                   . "pjb@informatimago.com")
                (#:date                           . "Spring 2014")
diff --git a/tools/com.informatimago.tools.symbol.asd b/tools/com.informatimago.tools.symbol.asd
index 9d052f7..c1904e6 100644
--- a/tools/com.informatimago.tools.symbol.asd
+++ b/tools/com.informatimago.tools.symbol.asd
@@ -38,7 +38,7 @@
     :author "Pascal J. Bourguignon"
     :version "1.0.0"
     :license "GPL3"
-    :depends-on ()
+    :depends-on ("com.informatimago.common-lisp.cesarum")
     :components ((:file "symbol")))

 ;;;; THE END ;;;;
diff --git a/tools/manifest.lisp b/tools/manifest.lisp
index 77a7e6b..06e7b96 100644
--- a/tools/manifest.lisp
+++ b/tools/manifest.lisp
@@ -97,11 +97,16 @@



-;; kuiper          Linux kuiper 2.6.38-gentoo-r6-pjb-c9 #2 SMP Wed Jul 13 00:23:08 CEST 2011 x86_64 Intel(R) Core(TM) i7 CPU 950 @ 3.07GHz GenuineIntel GNU/Linux
-;; hubble          Linux hubble 2.6.34-gentoo-r1-d3 #5 SMP PREEMPT Mon Sep 6 13:17:41 CEST 2010 i686 QEMU Virtual CPU version 0.13.0 GenuineIntel GNU/Linux
-;; voyager         Linux voyager.informatimago.com 2.6.18-6-k7 #1 SMP Mon Oct 13 16:52:47 UTC 2008 i686 GNU/Linux
-;; galatea         Darwin galatea.lan.informatimago.com 11.3.0 Darwin Kernel Version 11.3.0: Thu Jan 12 18:48:32 PST 2012; root:xnu-1699.24.23~1/RELEASE_I386 i386
-;; neuron          Darwin neuron.intergruas.com 9.8.0 Darwin Kernel Version 9.8.0: Wed Jul 15 16:55:01 PDT 2009; root:xnu-1228.15.4~1/RELEASE_I386 i386
+;; kuiper                Linux kuiper 2.6.38-gentoo-r6-pjb-c9 #2 SMP Wed Jul 13 00:23:08 CEST 2011 x86_64 Intel(R) Core(TM) i7 CPU 950 @ 3.07GHz GenuineIntel GNU/Linux
+;; hubble                Linux hubble 2.6.34-gentoo-r1-d3 #5 SMP PREEMPT Mon Sep 6 13:17:41 CEST 2010 i686 QEMU Virtual CPU version 0.13.0 GenuineIntel GNU/Linux
+;; voyager               Linux voyager.informatimago.com 2.6.18-6-k7 #1 SMP Mon Oct 13 16:52:47 UTC 2008 i686 GNU/Linux
+;; triton   10.5.8       Darwin triton.lan.informatimago.com 9.8.0 Darwin Kernel Version 9.8.0: Wed Jul 15 16:57:01 PDT 2009; root:xnu-1228.15.4~1/RELEASE_PPC Power Macintosh powerpc PowerBook6,8 Darwin
+;; neuron   10.5.8       Darwin neuron.intergruas.com 9.8.0 Darwin Kernel Version 9.8.0: Wed Jul 15 16:55:01 PDT 2009; root:xnu-1228.15.4~1/RELEASE_I386 i386
+;; galatea               Darwin galatea.lan.informatimago.com 11.3.0 Darwin Kernel Version 11.3.0: Thu Jan 12 18:48:32 PST 2012; root:xnu-1699.24.23~1/RELEASE_I386 i386
+;; galatea  10.7.5       Darwin galatea.lan.informatimago.com 11.4.2 Darwin Kernel Version 11.4.2: Thu Aug 23 16:26:45 PDT 2012; root:xnu-1699.32.7~1/RELEASE_I386 i386
+;; despina  10.8         Darwin despina.home 12.5.0 Darwin Kernel Version 12.5.0: Sun Sep 29 13:33:47 PDT 2013; root:xnu-2050.48.12~1/RELEASE_X86_64 x86_64
+;; larissa  10.9.2       Darwin larissa.home 13.1.0 Darwin Kernel Version 13.1.0: Thu Jan 16 19:40:37 PST 2014; root:xnu-2422.90.20~2/RELEASE_X86_64 x86_64 i386 MacBookAir6,2 Darwin
+


 (defun shell-command-to-string (command)
@@ -134,12 +139,12 @@ System and distrib are keywords, release is a string."
                  #+darwin  :darwin
                  #+(and unix (not (or linux darwin)))
                  (let ((uname (shell-command-to-string "uname")))
-                   (if (and uname (plusp (length (trim uname)))
+                   (if (and uname (plusp (length (trim uname))))
                        (with-input-from-string (inp uname)
                          (let ((*package* (find-package "KEYWORD"))
                                (*read-eval* nil))
                            (read file inp)))
-                       :unknown))
+                       :unknown)
                  #-(or windows linux darwin unix)
                  :unknown))
          (distrib :unknown)
ViewGit