anchor.diff:    (exec "DELETE FROM \"planets\"")
     (exec "VACUUM"))
   
  +
  +;;; Provisional-designation (alias) -> database
   (defun insert-alias (timestamp number minor-planet-number)
     (exec "INSERT INTO \"aliases\" (\"year\", \"half-month\", \"number\", \"minor-planet-number\") VALUES (?,?,?,?)"
           (timestamp-year timestamp)
  
positive.code:    (* 250 ;; Most significant alphanum
        (position
         (char packed-form 4)
         "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijlmnopqrstuvwxyz"))))
  
  (defun parse-packed-form (packed-form)
    "Turns a packed-form string into a list of two things: 
  
negative.code: (defun line-get-eccentricity (line)    (read-from-string (subseq line 71 80)))
  (defun line-get-semi-major-axis (line) (read-from-string (subseq line 93 104)))
  (defun line-get-inclination (line)     (read-from-string (subseq line 60 69)))
  (defun line-get-vanity-name (line)     (read-from-string (subseq line )))
  
  (defun aliases-line-number (alias-line)
    (+ (* 10000 (position (char alias-line 0) "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))
  