From b02a08a022da42c68a8664867dc67ec45d4599b4 Mon Sep 17 00:00:00 2001
From: Michael Raskin <7c6f434c@mail.ru>
Date: Tue, 7 Jul 2009 14:50:37 +0000
Subject: [PATCH] SBCL now works fine. added hacks and workarounds for store
 mono-timestamp handling

svn path=/nixpkgs/trunk/; revision=16219
---
 pkgs/development/compilers/sbcl/default.nix | 12 ++++++++++++
 pkgs/top-level/release.nix                  |  1 +
 2 files changed, 13 insertions(+)

diff --git a/pkgs/development/compilers/sbcl/default.nix b/pkgs/development/compilers/sbcl/default.nix
index d239bfb56305..82afb3a06324 100644
--- a/pkgs/development/compilers/sbcl/default.nix
+++ b/pkgs/development/compilers/sbcl/default.nix
@@ -34,8 +34,20 @@ rec {
         (enable :sb-thread))) " > customize-target-features.lisp
   '') ["minInit" "doUnpack"];
 
+  /* SBCL checks whether files are up-to-date in many places.. Unfortunately, same timestamp 
+     is not good enought
+  */
   doFixNewer = a.fullDepEntry(''
     sed -e 's@> x y@>= x y@' -i contrib/sb-aclrepl/repl.lisp
+    sed -e '/(date)/i((= date 2208988801) 2208988800)' -i contrib/asdf/asdf.lisp
+    sed -i src/cold/slam.lisp -e \
+      '/file-write-date input/a)'
+    sed -i src/cold/slam.lisp -e \
+      '/file-write-date output/i(or (and (= 2208988801 (file-write-date output)) (= 2208988801 (file-write-date input)))'
+    sed -i src/code/target-load.lisp -e \
+      '/date defaulted-fasl/a)'
+    sed -i src/code/target-load.lisp -e \
+      '/date defaulted-source/i(or (and (= 2208988801 (file-write-date defaulted-source-truename)) (= 2208988801 (file-write-date defaulted-fasl-truename)))'
   '') ["minInit" "doUnpack"];
 
   doWrap = a.fullDepEntry (''
diff --git a/pkgs/top-level/release.nix b/pkgs/top-level/release.nix
index 1a903cb40dbe..92684fa35ba5 100644
--- a/pkgs/top-level/release.nix
+++ b/pkgs/top-level/release.nix
@@ -287,6 +287,7 @@ in {
   pthreadmanpages = all;
   python = allBut "i686-cygwin";
   pythonFull = linux;
+  sbcl = all;
   qt3 = allBut "i686-cygwin";
   qt4 = linux;
   quake3demo = linux;