This week only. Pastebin PRO Accounts Christmas Special! Don't miss out!Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on May 28th, 2011  |  syntax: Lisp  |  size: 1.25 KB  |  views: 84  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1.  
  2.   (defclass deflate-compressor ()
  3.     ((input
  4.       :initarg :input
  5.       :accessor input)
  6.      (chains
  7.       :initarg :chains
  8.       :accessor chains)
  9.      (hashes
  10.       :initarg :hashes
  11.       :accessor hashes)
  12.      (octet-buffer
  13.       :initarg :octet-buffer
  14.       :accessor octet-buffer)
  15.      (literal-fun
  16.       :initarg :literal-fun
  17.       :accessor literal-fun)
  18.      (length-fun
  19.       :initarg :length-fun
  20.       :accessor length-fun)
  21.      (distance-fun
  22.       :initarg :distance-fun
  23.       :accessor distance-fun)
  24.      (byte-fun
  25.       :initarg :byte-fun
  26.       :accessor byte-fun)
  27.      (compress-fun
  28.       :initarg :compress-fun
  29.       :accessor compress-fun))
  30.     (:default-initargs
  31.      :input (make-array 65536 :element-type '(unsigned-byte 8))
  32.      :chains (make-array 65536
  33.                          :element-type '(unsigned-byte 16)
  34.                          :initial-element 0)
  35.      :hashes (make-array 8191
  36.                          :element-type '(unsigned-byte 16)
  37.                          :initial-element 0)
  38.  
  39.      :octet-buffer nil))
  40.  
  41.   (loop for i from 1 to 10 do
  42.           (ccl::process-run-function "noname"
  43.            (lambda ()
  44.              (loop for j from 1 do
  45.                    (make-instance 'deflate-compressor)))))
clone this paste RAW Paste Data