anchor.diff:  (in-package :robray)
  +
  +;;(declaim (optimize (speed 3) (safety 0)))
   
   (defstruct wavefront-obj-face
     vertex-index
  
positive.code:           stripped))))
  
  (defun parse-wavefront-face (line material lineno)
    (labels ((subseq-list (reg-start reg-end items)
               (loop for i in items
                  for s = (aref reg-start i)
                  for e = (aref reg-end i)
  
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
  