performance measurements
Each table row shows performance measurements for this Lisp SBCL program with a particular command-line input value N.
| N | CPU secs | Elapsed secs | Memory KB | Code B | ≈ CPU Load |
|---|---|---|---|---|---|
| 250,000 | 0.83 | 0.83 | 100,528 | 2272 | 1% 0% 1% 99% |
| 2,500,000 | 7.11 | 7.12 | 102,964 | 2272 | 0% 0% 2% 100% |
| 25,000,000 | 69.11 | 69.19 | 105,236 | 2272 | 0% 0% 0% 100% |
Read the ↓ make, command line, and program output logs to see how this program was run.
Read k-nucleotide benchmark to see what this program should do.
notes
This is SBCL 1.1.7, an implementation of ANSI Common Lisp.
k-nucleotide Lisp SBCL #4 program source code
;; The Computer Language Benchmarks Game ;; http://benchmarksgame.alioth.debian.org/ ;; ;; contributed by Alexey Voznyuk ;; (defpackage #:k-nucleotide (:use :cl)) (in-package :k-nucleotide) (defmacro with-packed-sequences ((&rest sequences) &body body) (loop :for (bind update length) :in sequences :collect `(,bind 0) :into binds :collect `(type (integer 0 ,(1- (expt 4 length))) ,bind) :into decls :collect `(,update (char) `(setf ,',bind (logior (ash ,',bind -2) (ash (logand (char-code ,char) #x6) ,',(1- (* (1- length) 2)))))) :into updates :finally (return `(let (,@binds) (declare ,@decls) (macrolet (,@updates) ,@body))))) (defmacro pack-sequence (sequence) `(with-packed-sequences ((bind update ,(length sequence))) (loop :for char :across ,sequence :do (update char)) bind)) (defun unpack-sequence (length packed-seq) (declare (optimize (speed 3) (safety 0) (debug 0)) (type fixnum length packed-seq)) (with-output-to-string (seq-out) (loop :repeat length :do (write-char (ecase (logand packed-seq #x3) (0 #\A) (1 #\C) (2 #\T) (3 #\G)) seq-out) :do (setf packed-seq (ash packed-seq -2))))) (defmacro with-packed-caches-fill ((hash-access) &rest updaters) `(progn ,@(loop :for tick :from 1 :to (apply #'max (mapcar #'third updaters)) :collect `(with-current-char (char :skip-newline t) ,@(loop :for (bind update length) :in updaters :collect `(,update char) :when (>= tick length) :collect `(,hash-access ,length ,bind)))))) (defmacro with-reading-stream ((stream &key (block-size 8192)) &body body) `(block outer-tag (let ((advance (let ((buffer (make-array ,block-size :element-type 'standard-char :initial-element #\Newline)) (index 0) (amount 0)) (declare (type fixnum index amount)) (lambda () (prog2 (when (>= index amount) (setf amount (read-sequence buffer ,stream) index 0) (when (zerop amount) (return-from outer-tag nil))) (elt buffer index) (incf index)))))) (flet ((get-char () (funcall advance))) (macrolet ((with-current-char ((char &key skip-newline) &body body) `(let ((,char ,(if skip-newline `(loop :for ,char = (get-char) :while (char= ,char #\Newline) :finally (return ,char)) `(get-char)))) (declare (type standard-char ,char)) ,@body))) ,@body))))) (defmacro skip-buffer-to (&rest patterns) `(progn ,@(loop :for pattern :in patterns :collect `(loop :until (and ,@(loop :for char :across (string pattern) :collect `(with-current-char (char) (char= char ,char)))))))) (defmacro with-dna-analyzed ((stream hash-access &key (block-size 8192)) &rest sequence-lengths) (loop :for length :in sequence-lengths :collect (gensym) :into binds :collect (gensym) :into updaters :finally (let ((desc (mapcar #'list binds updaters sequence-lengths))) (return `(with-packed-sequences (,@desc) (with-reading-stream (,stream :block-size ,block-size) (skip-buffer-to ">THREE" #\Newline) (with-packed-caches-fill (,hash-access) ,@desc) (loop (with-current-char (char :skip-newline t) ,@(loop :for update :in updaters :for bind :in binds :for length :in sequence-lengths :collect `(,update char) :collect `(,hash-access ,length ,bind)))))))))) (defun seq= (seq-a seq-b) (declare (optimize (speed 3) (safety 0) (debug 0)) (type fixnum seq-a seq-b)) (= seq-a seq-b)) (defun seq-hash (seq) (declare (optimize (speed 3) (safety 0) (debug 0)) (type fixnum seq)) seq) (sb-ext:define-hash-table-test seq= seq-hash) (defmacro with-smart-dna-hash ((hash-access hash-loop &key (vector-threshold 1048576)) (&rest sequence-lengths) &body body) (loop :for length :in sequence-lengths :for bind = (gensym) :for area = (expt 4 length) :for vec-p = (<= area vector-threshold) :collect `(,bind ,(if vec-p `(make-array ,area :element-type 'fixnum :initial-element 0) `(make-hash-table :test ',(if (< area most-positive-fixnum) 'seq= 'eql) :rehash-size ,(expt 2 (1- length)) :rehash-threshold 0.7))) :into binds :collect `(,length ,(if vec-p ``(elt ,',bind ,key) ``(the fixnum (gethash ,key ,',bind 0)))) :into accesses :collect `(,length ,(if vec-p ``(loop :for i :from 0 :below ,',(expt 4 length) :for ,value = (elt ,',bind i) :for ,key = (unpack-sequence ,',length i) :unless (zerop ,value) ,@loop-keywords) ``(loop :for packed-key :being :the :hash-keys :in ,',bind :for ,key = (unpack-sequence ,',length packed-key) :for ,value = (,',hash-access ,',length packed-key) ,@loop-keywords))) :into loops :finally (return `(let (,@binds) (macrolet ((,hash-access (seq-length key) (ecase seq-length ,@accesses)) (,hash-loop ((seq-length key value) &rest loop-keywords) (ecase seq-length ,@loops))) ,@body))))) (defmacro with-percentage ((hash-loop &rest seq-descriptions) &body body) (if (null seq-descriptions) `(progn ,@body) (destructuring-bind (seq-bind seq-length) (car seq-descriptions) `(let ((,seq-bind (,hash-loop (,seq-length k v) :summing v :into total :of-type fixnum :and :collect k :into seqs :and :collect v :into counts :finally (return (mapcar #'list seqs (mapcar (lambda (count) (declare (type fixnum count)) (/ (* count 100.0) total)) counts)))))) (with-percentage (,hash-loop ,@(cdr seq-descriptions)) ,@body))))) (defmacro obtain-seq-count (hash-access seq) `(list (,hash-access ,(length seq) (pack-sequence ,seq)) #\Tab ,seq)) (defun perform-work (stream) (declare (optimize (speed 3) (safety 0) (debug 0))) (with-smart-dna-hash (hash-access hash-loop :vector-threshold 16777216) (1 2 3 4 6 12 18) (macrolet ((incf-hash-element (seq-length key) `(incf (hash-access ,seq-length ,key)))) (with-dna-analyzed (stream incf-hash-element :block-size 655350) 1 2 3 4 6 12 18) (with-percentage (hash-loop (seqs-1 1) (seqs-2 2)) (values (list seqs-1 seqs-2) (list (obtain-seq-count hash-access "GGT") (obtain-seq-count hash-access "GGTA") (obtain-seq-count hash-access "GGTATT") (obtain-seq-count hash-access "GGTATTTTAATT") (obtain-seq-count hash-access "GGTATTTTAATTTATAGT"))))))) (defun print-results (seq-freqs seq-counts) (labels ((compare (a b) (cond ((> (second a) (second b)) t) ((< (second a) (second b)) nil) (t (string< (first a) (first b))))) (print-freq (freq) (format t "~{~{~a ~3$~}~%~}~%" (sort freq #'compare)))) (mapc #'print-freq seq-freqs) (format t "~{~{~a~c~a~}~%~}" seq-counts))) (defun main () (with-open-file (input-s #p"/dev/stdin" :external-format :iso-8859-1) (multiple-value-bind (freqs counts) (perform-work input-s) (print-results freqs counts)))) (in-package :cl-user) (defun main () (k-nucleotide::main))
make, command-line, and program output logs
Fri, 03 May 2013 22:12:19 GMT MAKE: cp: ‘knucleotide.sbcl-4.sbcl’ and ‘./knucleotide.sbcl-4.sbcl’ are the same file SBCL built with: /usr/local/bin/sbcl --userinit /dev/null --batch --eval '(load "knucleotide.sbcl-4.sbcl_compile")' ### START knucleotide.sbcl-4.sbcl_compile (handler-bind ((sb-ext:defconstant-uneql (lambda (c) (abort c)))) (load (compile-file "knucleotide.sbcl-4.sbcl" ))) (save-lisp-and-die "sbcl.core" :purify t) ### END knucleotide.sbcl-4.sbcl_compile ; compiling file "/home/dunham/benchmarksgame/bench/knucleotide/knucleotide.sbcl-4.sbcl" (written 24 JAN 2013 02:01:15 PM): ; compiling (DEFPACKAGE #:K-NUCLEOTIDE ...) ; compiling (IN-PACKAGE :K-NUCLEOTIDE) ; compiling (DEFMACRO WITH-PACKED-SEQUENCES ...) ; compiling (DEFMACRO PACK-SEQUENCE ...) ; compiling (DEFUN UNPACK-SEQUENCE ...) ; compiling (DEFMACRO WITH-PACKED-CACHES-FILL ...) ; compiling (DEFMACRO WITH-READING-STREAM ...) ; compiling (DEFMACRO SKIP-BUFFER-TO ...) ; compiling (DEFMACRO WITH-DNA-ANALYZED ...) ; compiling (DEFUN SEQ= ...) ; compiling (DEFUN SEQ-HASH ...) ; compiling (SB-EXT:DEFINE-HASH-TABLE-TEST SEQ= ...) ; compiling (DEFMACRO WITH-SMART-DNA-HASH ...) ; compiling (DEFMACRO WITH-PERCENTAGE ...) ; compiling (DEFMACRO OBTAIN-SEQ-COUNT ...) ; compiling (DEFUN PERFORM-WORK ...) ; file: /home/dunham/benchmarksgame/bench/knucleotide/knucleotide.sbcl-4.sbcl ; in: DEFUN PERFORM-WORK ; (K-NUCLEOTIDE::WITH-DNA-ANALYZED ; (STREAM K-NUCLEOTIDE::INCF-HASH-ELEMENT :BLOCK-SIZE 655350) 1 2 3 4 6 12 18) ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET ; --> K-NUCLEOTIDE::WITH-PACKED-CACHES-FILL PROGN ; --> K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET LOOP BLOCK ; --> TAGBODY PROGN K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; --> LOGIOR ; ==> ; (ASH #:G296 -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET MACROLET ; --> K-NUCLEOTIDE::WITH-READING-STREAM BLOCK LET FLET MACROLET LOOP BLOCK ; --> TAGBODY PROGN K-NUCLEOTIDE::WITH-CURRENT-CHAR LET #:G297 SETF SETQ THE ; ==> ; (LOGIOR (ASH #:G296 -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (K-NUCLEOTIDE::OBTAIN-SEQ-COUNT K-NUCLEOTIDE::HASH-ACCESS ; "GGTATTTTAATTTATAGT") ; --> LIST K-NUCLEOTIDE::HASH-ACCESS THE GETHASH SB-IMPL::GETHASH3 ; --> K-NUCLEOTIDE::PACK-SEQUENCE K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET ; --> MACROLET LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY K-NUCLEOTIDE::UPDATE ; --> SETF SETQ THE LOGIOR ; ==> ; (ASH K-NUCLEOTIDE::BIND -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 36), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 36), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 34) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (LOGAND (CHAR-CODE CHAR) 6) 33) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 51539607553) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> LIST K-NUCLEOTIDE::HASH-ACCESS THE GETHASH SB-IMPL::GETHASH3 ; --> K-NUCLEOTIDE::PACK-SEQUENCE K-NUCLEOTIDE::WITH-PACKED-SEQUENCES LET ; --> MACROLET LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY K-NUCLEOTIDE::UPDATE ; --> SETF SETQ THE ; ==> ; (LOGIOR (ASH K-NUCLEOTIDE::BIND -2) (ASH (LOGAND (CHAR-CODE CHAR) 6) 33)) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 34), not a FIXNUM. ; The second argument is a (MOD 51539607553), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 34), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 51539607553), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 36) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; compiling (DEFUN PRINT-RESULTS ...) ; compiling (DEFUN MAIN ...) ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN MAIN ...); ; compilation unit finished ; printed 58 notes ; /home/dunham/benchmarksgame_onecore/knucleotide/tmp/knucleotide.sbcl-4.fasl written ; compilation finished in 0:00:00.503 [undoing binding stack and other enclosing state... done] [saving current Lisp image into sbcl.core: writing 3512 bytes from the read-only space at 0x0x1000000 writing 2256 bytes from the static space at 0x0x1100000 writing 28258304 bytes from the dynamic space at 0x0x9000000 done] ### START knucleotide.sbcl-4.sbcl_run (main) (quit) ### END knucleotide.sbcl-4.sbcl_run 1.09s to complete and log all make actions COMMAND LINE: /usr/local/bin/sbcl --noinform --core sbcl.core --userinit /dev/null --load knucleotide.sbcl-4.sbcl_run 0 < knucleotide-input25000000.txt PROGRAM OUTPUT: A 30.295 T 30.151 C 19.800 G 19.754 AA 9.177 TA 9.132 AT 9.131 TT 9.091 CA 6.002 AC 6.001 AG 5.987 GA 5.984 CT 5.971 TC 5.971 GT 5.957 TG 5.956 CC 3.917 GC 3.911 CG 3.909 GG 3.902 1471758 GGT 446535 GGTA 47336 GGTATT 893 GGTATTTTAATT 893 GGTATTTTAATTTATAGT