anchor.diff:      #-clisp
       (finish-output *log-output*)))
   
  +
  +
   (defun stroid (stream oid colon-p at-p)
     (declare (ignore colon-p at-p))
     (map nil
  
positive.code:   (intern (string-upcase string) :keyword))
  
  
  
  ;;; clorb-supp.lisp ends here
  
negative.code:     oid))
  
  
  
  
  ;;;; Helper functions
  
  
  (defun kwote (x)
    (list 'quote x))
  