anchor.diff:  
   
   ;;; Bootstrap implementations
  -
   (defvar *implementation* nil)
   (defclass lisp () ())
   
  -
   ;;; Allegro Common Lisp
  -
   (define-implementation-package :allegro #:qlqs-allegro
     (:documentation
      "Allegro Common Lisp - http://www.franz.com/products/allegrocl/")
  
positive.code:                                (and client-version
                                      (client-info-url-from-version client-version))
                                 *client-info-url*))
                 ;; It's ok for dist-url to be nil; there's a default in
                 ;; the client
                 (dist-url (or dist-url
                               (and dist-version
                                    (distinfo-url-from-version dist-version)))))
             (initial-install :client-url client-url
                              :dist-url dist-url))))))
  
  (write-string *after-load-message*)
  
  ;;; End of quicklisp.lisp
  
negative.code: ;;;
  ;;; Defining implementation-specific packages and functionality
  ;;;
  (in-package #:qlqs-impl)
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
  