Skip to content
Browse files

remove declare optimize debug statements

  • Loading branch information...
1 parent 560f72d commit 46e96c38f56208ab850cddd68992eaa4b7a25bc0 @slyrus slyrus committed Mar 14, 2011
Showing with 0 additions and 3 deletions.
  1. +0 −1 convolve.lisp
  2. +0 −1 pnm.lisp
  3. +0 −1 tiff.lisp
View
1 convolve.lisp
@@ -12,7 +12,6 @@
(defun discrete-convolve (u v)
"Perform a discrete convolution of matrix u with matrix v"
- (declare (optimize (debug 3)))
(let ((fit-function
(let ((type (array-element-type u)))
(cond
View
1 pnm.lisp
@@ -49,7 +49,6 @@
;;; PBM Files
(defun %read-pbm-ascii-stream (stream)
- (declare (optimize (debug 3)))
(let ((width (parse-integer (read-number stream)))
(height (parse-integer (read-number stream))))
(let ((img (make-1-bit-gray-image height width)))
View
1 tiff.lisp
@@ -8,7 +8,6 @@
(defun read-tiff-stream (stream)
"reads a TIFF image from a stream and returns either a 32-bit ARGB
image or an 8-bit grayscale image"
- (declare (optimize (debug 3)))
(let ((tiff-image (tiff:read-tiff-stream stream)))
(with-accessors ((image-length tiff:tiff-image-length)
(image-width tiff:tiff-image-width)

0 comments on commit 46e96c3

Please sign in to comment.
Something went wrong with that request. Please try again.