anchor.diff:    (quit))
   
   
  -
  +#-testing
   (eval-when (:load-toplevel :execute)
     (save-program-and-quit :name "what-implementation"
                            :toplevel (function main)
  
positive.code:           (setf (ccl::stream-external-format stream)
                  (ccl:make-external-format :domain nil
                                            :character-encoding encoding
  					  ;; telnet uses MS-DOS newlines.
                                            :line-termination :windows
                                            ;; #+unix :unix
                                            ;; #+windows :windows
                                            ;; #-(or unix windows) :unix
  					  )))
          (list (two-way-stream-input-stream  *terminal-io*)
                (two-way-stream-output-stream *terminal-io*)))
    (values))
  
  (defun license ()
    (format *query-io*
            "Note: this software is distributed under the GNU Affero General Public License.
  You may find its sources at http://tinyurl.com/what-implementation
  "))
  
  (defun main ()
    (handler-case
  
negative.code:                (< 1 (length selection))
                 (< 1 (length selection)))
         (dolist (sel selection)
           ;; (format *query-io* "~A~%" (getf sel :name))
           (report-implementation sel)))))
  
  
  (defun choose-an-implementation (&optional (implementations *implementations*))
  