[bknr-cvs] r1927 - trunk/bknr/src/images

[bknr at bknr.net]

Author: troussanov
Date: 2006-03-12 16:20:06 -0500 (Sun, 12 Mar 2006)
New Revision: 1927

Modified:
   trunk/bknr/src/images/imageproc-handler.lisp
Log:
More SBCL port changes


Modified: trunk/bknr/src/images/imageproc-handler.lisp
===================================================================
--- trunk/bknr/src/images/imageproc-handler.lisp	2006-03-12 21:15:02 UTC (rev 1926)
+++ trunk/bknr/src/images/imageproc-handler.lisp	2006-03-12 21:20:06 UTC (rev 1927)
@@ -170,16 +170,10 @@
     (let ((ims (header-slot-value req :if-modified-since))
 	  (changed-time (blob-timestamp image)))
       (setf (net.aserve::last-modified *ent*) changed-time)
-      (setf (reply-header-slot-value req :last-modified) (#-allegro
-							  universal-time-to-date
-							  #+allegro
-							  net.aserve::universal-time-to-date
-							  changed-time))
+      (setf (reply-header-slot-value req :last-modified) 
+	    (net.aserve::universal-time-to-date changed-time))
 	(if (and ims
-		 (<= changed-time (#-allegro
-				   date-to-universal-time
-				   #+allegro
-				   net.aserve::date-to-universal-time ims)))
+		 (<= changed-time (net.aserve::date-to-universal-time ims)))
 	    (progn
 	      (setf (request-reply-code req) *response-not-modified*)
 	      (format t "; image ~A not changed~%" image)