anchor.diff:            stripped))))
   
   (defun parse-wavefront-face (line material lineno)
  +  (declare (type simple-string line))
     (labels ((subseq-list (reg-start reg-end items)
  +             (declare (type simple-vector reg-start reg-end))
                (loop for i in items
                   for s = (aref reg-start i)
                   for e = (aref reg-end i)
  
positive.code: (in-package :robray)
  
  (defstruct wavefront-obj-face
    vertex-index
  
negative.code:   (ppcre:create-scanner "\\s*(\\S+)\\s*(.*)"))
  
  (defun wavefront-strip-comment (line)
    (declare (type simple-string line))
    (when line
      (let* ((i (position #\# line))
             (stripped (if i
  