dev-lisp/cl-jpeg/files/1.033-quantize-optimization-clisp-gentoo.patch


1
2
3
4
5
6
7
8
9
10
11
12
13

diff -ur cljl.orig/jpeg.lisp cljl/jpeg.lisp
--- cljl.orig/jpeg.lisp	2003-10-06 12:49:30.000000000 -0500
+++ cljl/jpeg.lisp	2006-04-24 16:37:38.000000000 -0500
@@ -256,7 +256,8 @@
 (finish-output)
 
 (defvar *quantize-optimization*
-  (<= (let ((time1 (get-internal-run-time)))
+  #+clisp t
+  #-clisp (<= (let ((time1 (get-internal-run-time)))
         (loop for i fixnum from 1 to 3000 do
               (loop for row across *q-luminance* do
                     (loop for q-coef fixnum across row