Release 1h, from 2009-05-01.

Changes since version 1g:
  - Improve stability of the XLib interface.
  - Improve reader eof-errorp behaviour.
  - Add POST, logging and dynamic generation to the HTTP service.
  - Add a simple local delivery SMTP service.
  - In the editor:
      - Add a ChangeLog mode.
      - Add authentication to Netnews.
      - Add a clock and a colour browser.
      - Update the MH interface to add sender details to the contacts db.
      - Rename the Info system to Doc and the GNU Info system to Info.
      - Add manpage, menu, Doc and Info highlighting.
      - Hack together some sketchy UTF-8 support.
      - Add two window sizing commands.

src/.manifest

@@ -1,9 +1,10 @@
-"Build.lisp" 3440334903
-"VERSION" 3440345601
+"Build.lisp" 3442412473
+"VERSION" 3450105872
 "assembly/" NIL
 "bin/" NIL
 "code/" NIL
 "compiler/" NIL
+"debian/" NIL
 "ed/" NIL
 "etc/" NIL
 "lisp/" -1

src/Build.lisp

@@ -245,12 +245,19 @@
       (symlink-file "builder" new-builder)
       (format t "Cloning build as new builder... done.~%"))))
 
+(defvar user::*dist-dir* ())
+
 (deftarget "dist" ( #| "kernel" "lisp" "ed" |#)
   "Build a binary and source distribution.  Return the name of the
-   resulting archive."
+   resulting archive.
+
+   If *dist-dir* is true, build into that directory and stop before
+   creating the actual archive."
   (format t "Updating manifest...~%")
+  (format t "user::*dist-dir* ~A~%" user::*dist-dir*)
+  (format t "*package* ~A~%" *package*)
   (sync:update-manifest-times "n:")
-  (let* ((base (pick-new-dir))
+  (let* ((base (or user::*dist-dir* (pick-new-dir)))
 	 (bin (concatenate 'simple-string
 			   base
 			   "bin/"))
@@ -377,36 +384,41 @@
 				  (get-build-directory)
 				  "/spell-dictionary.bin")
 		     "spell-dictionary.bin")))
-      (format t "Creating archive...~%")
-      (let* ((name (format () "~A/../../nightshade-~A--~A.tar.bz2"
-			   (get-build-directory)
-			   (read-line (open (format ()
-						    "~A/VERSION"
-						    (get-source-directory))))
-			   ;; FIX get build time from core
-			   ;; FIX improve format-time or format
-			   (multiple-value-bind
-			       (secs mins hours day month year)
-			       (decode-universal-time (get-universal-time))
-			     (declare (ignore secs))
-			     (string-downcase
-			      ;; FIX ~2D  so that prints 08 for 8
-			      (format () "~2,'0D-~2,'0D-~2,'0D-~2,'0Dh~2,'0D"
-				      year
-				      month
-				      day
-				      hours
-				      mins)))))
-	     (cmd (format () "tar jcvf ~A ." name)))
-	(format t "Shell command: ~A" cmd)
-	(in-directory base
-	  (ext::run-program
-	   "/bin/sh" (list "-c" cmd)
-	   :wait t :input ()
-	   :output *standard-output* :error :output))
-	(dired:delete-file base :clobber t :recurse t)
-	(format t "Done.~%")
-	name))))
+      (if user::*dist-dir*
+	  (progn
+	    (format t "Done.~%")
+	    t)
+	  (progn
+	    (format t "Creating archive...~%")
+	    (let* ((name (format () "~A/../../nightshade-~A--~A.tar.bz2"
+				 (get-build-directory)
+				 (read-line (open (format ()
+							  "~A/VERSION"
+							  (get-source-directory))))
+				 ;; FIX get build time from core
+				 ;; FIX improve format-time or format
+				 (multiple-value-bind
+				     (secs mins hours day month year)
+				     (decode-universal-time (get-universal-time))
+				   (declare (ignore secs))
+				   (string-downcase
+				    ;; FIX ~2D  so that prints 08 for 8
+				    (format () "~2,'0D-~2,'0D-~2,'0D-~2,'0Dh~2,'0D"
+					    year
+					    month
+					    day
+					    hours
+					    mins)))))
+		   (cmd (format () "tar jcvf ~A ." name)))
+	      (format t "Shell command: ~A" cmd)
+	      (in-directory base
+		(ext::run-program
+		 "/bin/sh" (list "-c" cmd)
+		 :wait t :input ()
+		 :output *standard-output* :error :output))
+	      (dired:delete-file base :clobber t :recurse t)
+	      (format t "Done.~%")
+	      name))))))
 
 
 ;;; Tests.

src/VERSION

@@ -1 +1 @@
-1g
+1h

src/assembly/.manifest

@@ -1,5 +1,5 @@
 "alpha/" NIL
-"assemfile.lisp" 3419751059
+"assemfile.lisp" 3440347588
 "hppa/" NIL
 "mips/" NIL
 "rt/" NIL

src/assembly/alpha/.manifest

@@ -1,5 +1,5 @@
-"alloc.lisp" 3408220143
-"arith.lisp" 3408220144
-"array.lisp" 3408220144
-"assem-rtns.lisp" 3408220144
-"support.lisp" 3408220144
+"alloc.lisp" 3440347588
+"arith.lisp" 3440347588
+"array.lisp" 3440347588
+"assem-rtns.lisp" 3440347588
+"support.lisp" 3440347588

src/assembly/hppa/.manifest

@@ -1,5 +1,5 @@
-"alloc.lisp" 3408220144
-"arith.lisp" 3408220144
-"array.lisp" 3408220144
-"assem-rtns.lisp" 3408220145
-"support.lisp" 3408220145
+"alloc.lisp" 3440347588
+"arith.lisp" 3440347588
+"array.lisp" 3440347588
+"assem-rtns.lisp" 3440347588
+"support.lisp" 3440347588

src/assembly/mips/.manifest

@@ -1,7 +1,7 @@
-"alloc.lisp" 3408220145
-"arith.lisp" 3408220145
-"array.lisp" 3408220145
-"assem-rtns.lisp" 3408220145
-"bit-bash.lisp" 3408220145
-"support.lisp" 3408220146
-"wrlist.lisp" 3408220146
+"alloc.lisp" 3440347588
+"arith.lisp" 3440347588
+"array.lisp" 3440347588
+"assem-rtns.lisp" 3440347588
+"bit-bash.lisp" 3440347588
+"support.lisp" 3440347588
+"wrlist.lisp" 3440347588

src/assembly/rt/.manifest

@@ -1,5 +1,5 @@
-"alloc.lisp" 3408220146
-"arith.lisp" 3408220146
-"array.lisp" 3408220146
-"assem-rtns.lisp" 3408220146
-"support.lisp" 3408220147
+"alloc.lisp" 3440347588
+"arith.lisp" 3440347588
+"array.lisp" 3440347588
+"assem-rtns.lisp" 3440347588
+"support.lisp" 3440347588

src/assembly/sparc/.manifest

@@ -1,4 +1,4 @@
-"alloc.lisp" 3408220147
-"arith.lisp" 3408220147
-"array.lisp" 3408220147
-"assem-rtns.lisp" 3408220147
+"alloc.lisp" 3440347588
+"arith.lisp" 3440347588
+"array.lisp" 3440347588
+"assem-rtns.lisp" 3440347588

src/assembly/x86/.manifest

@@ -1,7 +1,7 @@
-"alloc.lisp" 3419750730
-"arith.lisp" 3419750800
-"array.lisp" 3428873683
-"assem-rtns.lisp" 3428875109
-"bit-bash.lisp" 3407714343
-"boot.lisp" 3429188269
-"support.lisp" 3407714343
+"alloc.lisp" 3440347588
+"arith.lisp" 3440347588
+"array.lisp" 3440347588
+"assem-rtns.lisp" 3440347588
+"bit-bash.lisp" 3440347588
+"boot.lisp" 3440347588
+"support.lisp" 3440347588