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)