(defun var-list (DEBUGGER::e DEBUGGER::a DEBUGGER::r)
  (funcall (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2 (DEBUGGER::db-list (DEBUGGER::db-repeat-simple #'var-list #'DEBUGGER::db-c-nothing)))
                            #'DEBUGGER::db-c-nothing)
           DEBUGGER::e DEBUGGER::a DEBUGGER::r))
(setf (symbol-function 'macro-lambda-list)
      (DEBUGGER::db-list (DEBUGGER::db-or (list (DEBUGGER::db-sequence (DEBUGGER::db-constant '&whole) #'DEBUGGER::db-c-variable-2
                                                                       (DEBUGGER::db-repeat-simple #'var-list
                                                                         (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&optional)
                                                                                                                  (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                              (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                        (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                                                 (DEBUGGER::db-try #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                                                                   #'DEBUGGER::db-c-nothing))
                                                                                                                                                                                                                          #'DEBUGGER::db-c-nothing))))
                                                                                                                                                        #'DEBUGGER::db-c-nothing)
                                                                                                                                       #'DEBUGGER::db-c-nothing))
                                                                                           (DEBUGGER::db-try (DEBUGGER::db-or (list (DEBUGGER::db-sequence (DEBUGGER::db-constant '&rest)
                                                                                                                                                           #'DEBUGGER::db-c-variable-2)
                                                                                                                                    (DEBUGGER::db-sequence (DEBUGGER::db-constant '&body)
                                                                                                                                                           #'DEBUGGER::db-c-variable-2))
                                                                                                                              #'DEBUGGER::db-c-nothing)
                                                                                                             (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&key)
                                                                                                                                                      (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                  (DEBUGGER::db-list (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                                            (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                                                                                                                                                                                      #'DEBUGGER::db-c-variable-2)))
                                                                                                                                                                                                                                      (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                                                                               (DEBUGGER::db-try #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                                                                                                 #'DEBUGGER::db-c-nothing))
                                                                                                                                                                                                                                                        #'DEBUGGER::db-c-nothing))))
                                                                                                                                                                                            #'DEBUGGER::db-c-nothing)
                                                                                                                                                                           (DEBUGGER::db-try (DEBUGGER::db-constant '&allow-other-keys)
                                                                                                                                                                                             #'DEBUGGER::db-c-nothing)))
                                                                                                                               (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&aux)
                                                                                                                                                                        (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                                                              (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                                                                                #'DEBUGGER::db-c-nothing))))
                                                                                                                                                                                                              #'DEBUGGER::db-c-nothing)
                                                                                                                                                                                             #'DEBUGGER::db-c-nothing))
                                                                                                                                                 #'DEBUGGER::db-c-nothing))))))
                                                (DEBUGGER::db-repeat-simple #'var-list
                                                  (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&optional)
                                                                                           (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                       (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                 (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                          (DEBUGGER::db-try #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                                            #'DEBUGGER::db-c-nothing))
                                                                                                                                                                                                   #'DEBUGGER::db-c-nothing))))
                                                                                                                                 #'DEBUGGER::db-c-nothing)
                                                                                                                #'DEBUGGER::db-c-nothing))
                                                                    (DEBUGGER::db-try (DEBUGGER::db-or (list (DEBUGGER::db-sequence (DEBUGGER::db-constant '&rest)
                                                                                                                                    #'DEBUGGER::db-c-variable-2)
                                                                                                             (DEBUGGER::db-sequence (DEBUGGER::db-constant '&body)
                                                                                                                                    #'DEBUGGER::db-c-variable-2))
                                                                                                       #'DEBUGGER::db-c-nothing)
                                                                                      (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&key)
                                                                                                                               (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                           (DEBUGGER::db-list (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                     (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                                                                                                                                                               #'DEBUGGER::db-c-variable-2)))
                                                                                                                                                                                                               (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                                                        (DEBUGGER::db-try #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                                                                          #'DEBUGGER::db-c-nothing))
                                                                                                                                                                                                                                 #'DEBUGGER::db-c-nothing))))
                                                                                                                                                                     #'DEBUGGER::db-c-nothing)
                                                                                                                                                    (DEBUGGER::db-try (DEBUGGER::db-constant '&allow-other-keys)
                                                                                                                                                                      #'DEBUGGER::db-c-nothing)))
                                                                                                        (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&aux)
                                                                                                                                                 (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                             (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                                       (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                                                         #'DEBUGGER::db-c-nothing))))
                                                                                                                                                                                       #'DEBUGGER::db-c-nothing)
                                                                                                                                                                      #'DEBUGGER::db-c-nothing))
                                                                                                                          #'DEBUGGER::db-c-nothing))))))
                                          #'DEBUGGER::db-c-nothing)))
(setf (symbol-function 'class-option)
      (DEBUGGER::db-or (list (DEBUGGER::db-list (DEBUGGER::db-sequence (DEBUGGER::db-constant ':default-initargs)
                                                                       (DEBUGGER::db-repeat-simple
                                                                         (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug)
                                                                         #'DEBUGGER::db-c-nothing)))
                             #'DEBUGGER::db-c-var)
                       #'DEBUGGER::db-c-nothing))
(setf (symbol-function 'specialized-lambda-list)
      (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                           (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                  (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2 #'DEBUGGER::db-c-var)))
                                            #'DEBUGGER::db-c-nothing)
                           (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&optional)
                                                                    (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                          (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                                                   (DEBUGGER::db-try #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                     #'DEBUGGER::db-c-nothing))
                                                                                                                                                                            #'DEBUGGER::db-c-nothing))))
                                                                                                          #'DEBUGGER::db-c-nothing)
                                                                                         #'DEBUGGER::db-c-nothing))
                                             (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&rest) #'DEBUGGER::db-c-variable-2)
                                                               (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&key)
                                                                                                        (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                    (DEBUGGER::db-list (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                              (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                                                                                                                                        #'DEBUGGER::db-c-variable-2)))
                                                                                                                                                                                        (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                                 (DEBUGGER::db-try #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                                                   #'DEBUGGER::db-c-nothing))
                                                                                                                                                                                                          #'DEBUGGER::db-c-nothing))))
                                                                                                                                              #'DEBUGGER::db-c-nothing)
                                                                                                                             (DEBUGGER::db-try (DEBUGGER::db-constant '&allow-other-keys)
                                                                                                                                               #'DEBUGGER::db-c-nothing)))
                                                                                 (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&aux)
                                                                                                                          (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                      (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                                  #'DEBUGGER::db-c-nothing))))
                                                                                                                                                                #'DEBUGGER::db-c-nothing)
                                                                                                                                               #'DEBUGGER::db-c-nothing))
                                                                                                   #'DEBUGGER::db-c-nothing)))))))
(setf (symbol-function 'slot-entry)
      (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2 (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2 #'DEBUGGER::db-c-var)))
                       #'DEBUGGER::db-c-nothing))
(setf (symbol-function 'body-2)
      (DEBUGGER::db-or (list (DEBUGGER::db-list (DEBUGGER::db-sequence (DEBUGGER::db-constant 'declare)
                                                                       (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-var #'DEBUGGER::db-c-nothing)))
                             #'DEBUGGER::db-c-use-var)
                       (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing)))
(setf (symbol-function 'body-1)
      (DEBUGGER::db-or (list (DEBUGGER::db-sequence (DEBUGGER::db-list (DEBUGGER::db-sequence (DEBUGGER::db-constant 'declare)
                                                                                              (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-var
                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    (DEBUGGER::db-or (list (DEBUGGER::db-sequence #'DEBUGGER::db-c-string #'DEBUGGER::db-c-use-var)
                                                                           #'DEBUGGER::db-c-use-var)
                                                                     #'DEBUGGER::db-c-nothing))
                             (DEBUGGER::db-sequence #'DEBUGGER::db-c-string
                                                    (DEBUGGER::db-or (list (DEBUGGER::db-sequence (DEBUGGER::db-list (DEBUGGER::db-sequence (DEBUGGER::db-constant 'declare)
                                                                                                                                            (DEBUGGER::db-repeat-simple
                                                                                                                                              #'DEBUGGER::db-c-var
                                                                                                                                              #'DEBUGGER::db-c-nothing)))
                                                                                                  #'DEBUGGER::db-c-use-var)
                                                                           #'DEBUGGER::db-c-use-var)
                                                                     #'DEBUGGER::db-c-nothing))
                             #'DEBUGGER::db-c-use-var)
                       (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing)))
(setf (symbol-function 'slot-option)
      (DEBUGGER::db-or (list (DEBUGGER::db-sequence (DEBUGGER::db-constant ':initform) #'DEBUGGER::db-c-debug)
                             (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-var))
                       #'DEBUGGER::db-c-nothing))
(setf (symbol-function 'slot-specifier)
      (DEBUGGER::db-or (list (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var (DEBUGGER::db-repeat-simple #'slot-option #'DEBUGGER::db-c-nothing)))
                             #'DEBUGGER::db-c-var)
                       #'DEBUGGER::db-c-nothing))
(setf (symbol-function 'lambda-list)
      (DEBUGGER::db-list (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-variable-2
                           (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&optional)
                                                                    (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                          (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                                                   (DEBUGGER::db-try #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                     #'DEBUGGER::db-c-nothing))
                                                                                                                                                                            #'DEBUGGER::db-c-nothing))))
                                                                                                          #'DEBUGGER::db-c-nothing)
                                                                                         #'DEBUGGER::db-c-nothing))
                                             (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&rest) #'DEBUGGER::db-c-variable-2)
                                                               (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&key)
                                                                                                        (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                    (DEBUGGER::db-list (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                              (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                                                                                                                                        #'DEBUGGER::db-c-variable-2)))
                                                                                                                                                                                        (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                                 (DEBUGGER::db-try #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                                                   #'DEBUGGER::db-c-nothing))
                                                                                                                                                                                                          #'DEBUGGER::db-c-nothing))))
                                                                                                                                              #'DEBUGGER::db-c-nothing)
                                                                                                                             (DEBUGGER::db-try (DEBUGGER::db-constant '&allow-other-keys)
                                                                                                                                               #'DEBUGGER::db-c-nothing)))
                                                                                 (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant '&aux)
                                                                                                                          (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                                                      (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                                                                                (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                                                                                  #'DEBUGGER::db-c-nothing))))
                                                                                                                                                                #'DEBUGGER::db-c-nothing)
                                                                                                                                               #'DEBUGGER::db-c-nothing))
                                                                                                   #'DEBUGGER::db-c-nothing)))))))
(setf (symbol-function 'option)
      (DEBUGGER::db-or (list (DEBUGGER::db-list (DEBUGGER::db-sequence (DEBUGGER::db-constant ':method)
                                                                       (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-var
                                                                         (DEBUGGER::db-sequence #'specialized-lambda-list #'body-1))))
                             #'DEBUGGER::db-c-var)
                       #'DEBUGGER::db-c-nothing))
(setf (symbol-function 'body-3)
      (DEBUGGER::db-or (list (DEBUGGER::db-list (DEBUGGER::db-sequence (DEBUGGER::db-constant 'declare)
                                                                       (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-var #'DEBUGGER::db-c-nothing)))
                             #'DEBUGGER::db-c-debug)
                       (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing)))
(setf (symbol-function 'd-and)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'and) (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-assert)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'assert) #'DEBUGGER::db-c-debug
                                                    (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                             (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                      (DEBUGGER::db-repeat-simple
                                                                                                                                        #'DEBUGGER::db-c-debug
                                                                                                                                        #'DEBUGGER::db-c-nothing))
                                                                                                               #'DEBUGGER::db-c-nothing))
                                                                      #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-block)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'block) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-case)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'case) #'DEBUGGER::db-c-debug
                                                    (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-or (list (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                                                                                                                                        #'DEBUGGER::db-c-var
                                                                                                                                        #'DEBUGGER::db-c-nothing))
                                                                                                                   #'DEBUGGER::db-c-var)
                                                                                                             (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug
                                                                                                               #'DEBUGGER::db-c-nothing)))
                                                                         #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-catch)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'catch) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-ccase)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'ccase) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-or (list (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                                                                                                                                        #'DEBUGGER::db-c-var
                                                                                                                                        #'DEBUGGER::db-c-nothing))
                                                                                                                   #'DEBUGGER::db-c-var)
                                                                                                             (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug
                                                                                                               #'DEBUGGER::db-c-nothing)))
                                                                         #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-compiler-let)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'compiler-let)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-var
                                                                                                                   (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                                                             (DEBUGGER::db-try #'DEBUGGER::db-c-var
                                                                                                                                                                               #'DEBUGGER::db-c-nothing))))
                                                                                                             #'DEBUGGER::db-c-nothing)
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-cond)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'cond)
                                                    (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                   (DEBUGGER::db-repeat-simple
                                                                                                                     #'DEBUGGER::db-c-debug
                                                                                                                     #'DEBUGGER::db-c-nothing)))
                                                                         #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-decf)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'decf) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-try #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-defclass)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'defclass) #'DEBUGGER::db-c-var #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat-simple #'slot-specifier #'DEBUGGER::db-c-nothing))
                                                    (DEBUGGER::db-repeat-simple #'class-option #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-defgeneric)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'defgeneric) #'DEBUGGER::db-c-var #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-repeat-simple #'option #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-defmethod)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'defmethod) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-var
                                                      (DEBUGGER::db-sequence #'specialized-lambda-list #'body-1)))))
(setf (symbol-function 'd-defun) (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'defun) #'DEBUGGER::db-c-var #'lambda-list #'body-1)))
(setf (symbol-function 'd-destructuring-bind)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'destructuring-bind) #'macro-lambda-list #'DEBUGGER::db-c-debug #'body-2)))
(setf (symbol-function 'd-do)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'do)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                      (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                               (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                                                 #'DEBUGGER::db-c-nothing))
                                                                                                                                                        #'DEBUGGER::db-c-nothing)))
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                              (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug
                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-2)))
(setf (symbol-function 'd-do*)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'do*)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-1
                                                                                                                                      (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                                                               (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                                                 #'DEBUGGER::db-c-nothing))
                                                                                                                                                        #'DEBUGGER::db-c-nothing)))
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                              (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug
                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-3)))
(setf (symbol-function 'd-do-all-symbols)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'do-all-symbols)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                              (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                       (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                         #'DEBUGGER::db-c-nothing))
                                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-2)))
(setf (symbol-function 'd-do-external-symbols)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'do-external-symbols)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                              (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                       (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                         #'DEBUGGER::db-c-nothing))
                                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-2)))
(setf (symbol-function 'd-dolist)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'dolist)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2 #'DEBUGGER::db-c-debug
                                                                                              (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-2)))
(setf (symbol-function 'd-dotimes)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'dotimes)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2 #'DEBUGGER::db-c-debug
                                                                                              (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-2)))
(setf (symbol-function 'd-do-symbols)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'do-symbols)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                              (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                       (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                         #'DEBUGGER::db-c-nothing))
                                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-2)))
(setf (symbol-function 'd-ecase)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'ecase) #'DEBUGGER::db-c-debug
                                                    (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-or (list (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                                                                                                                                        #'DEBUGGER::db-c-var
                                                                                                                                        #'DEBUGGER::db-c-nothing))
                                                                                                                   #'DEBUGGER::db-c-var)
                                                                                                             (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug
                                                                                                               #'DEBUGGER::db-c-nothing)))
                                                                         #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-etypecase)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'etypecase) #'DEBUGGER::db-c-debug
                                                    (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                   (DEBUGGER::db-repeat-simple
                                                                                                                     #'DEBUGGER::db-c-debug
                                                                                                                     #'DEBUGGER::db-c-nothing)))
                                                                         #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-ctypecase)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'ctypecase) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                   (DEBUGGER::db-repeat-simple
                                                                                                                     #'DEBUGGER::db-c-debug
                                                                                                                     #'DEBUGGER::db-c-nothing)))
                                                                         #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-eval-when)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'eval-when) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-flet)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'flet)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                                                                         (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'lambda-list #'body-1))
                                                                         #'DEBUGGER::db-c-nothing))
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-if)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'if) #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-debug
                                                    (DEBUGGER::db-try #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-generic-flet)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'generic-flet)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                                      #'DEBUGGER::db-c-var
                                                                                                                                      #'DEBUGGER::db-c-use-var-1
                                                                                                                                      (DEBUGGER::db-repeat-simple
                                                                                                                                        #'option
                                                                                                                                        #'DEBUGGER::db-c-nothing)))
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-generic-function)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'generic-function) #'DEBUGGER::db-c-var #'DEBUGGER::db-c-use-var-1
                                                    (DEBUGGER::db-repeat-simple #'option #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-generic-labels)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'generic-labels)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                                      #'DEBUGGER::db-c-var
                                                                                                                                      #'DEBUGGER::db-c-use-var-1
                                                                                                                                      (DEBUGGER::db-repeat-simple
                                                                                                                                        #'option
                                                                                                                                        #'DEBUGGER::db-c-nothing)))
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-handler-bind)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'handler-bind)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                                                                         (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug))
                                                                         #'DEBUGGER::db-c-nothing))
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-handler-case)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'handler-case) #'DEBUGGER::db-c-debug
                                                    (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var
                                                                                                                   (DEBUGGER::db-list (DEBUGGER::db-try #'DEBUGGER::db-c-variable-2
                                                                                                                                                        #'DEBUGGER::db-c-nothing))
                                                                                                                   #'DEBUGGER::db-c-use-var
                                                                                                                   (DEBUGGER::db-repeat-simple
                                                                                                                     #'DEBUGGER::db-c-debug
                                                                                                                     #'DEBUGGER::db-c-nothing)))
                                                                         #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-ignore-errors)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'ignore-errors)
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-incf)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'incf) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-try #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-labels)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'labels)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                                                                         (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'lambda-list #'body-1))
                                                                         #'DEBUGGER::db-c-nothing))
                                                    #'body-2)))
(setf (symbol-function 'd-lambda) (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'lambda) #'lambda-list #'body-1)))
(setf (symbol-function 'd-let)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'let)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                   (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                             (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                               #'DEBUGGER::db-c-nothing))))
                                                                                                             #'DEBUGGER::db-c-nothing)
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    #'body-2)))
(setf (symbol-function 'd-let*)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'let*)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-1
                                                                                                                   (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-1
                                                                                                                                                             (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                               #'DEBUGGER::db-c-nothing))))
                                                                                                             #'DEBUGGER::db-c-nothing)
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    #'body-3)))
(setf (symbol-function 'd-locally) (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'locally) #'body-3)))
(setf (symbol-function 'd-loop)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'loop) (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-macrolet)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'macrolet) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-mapping)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'mapping)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-list (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                                      (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                                                                                                                                                           #'DEBUGGER::db-c-variable-2
                                                                                                                                                           #'DEBUGGER::db-c-nothing)))
                                                                                                                                #'DEBUGGER::db-c-debug))
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    #'body-2)))
(setf (symbol-function 'd-multiple-value-bind)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'multiple-value-bind)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-variable-2 #'DEBUGGER::db-c-nothing))
                                                    #'DEBUGGER::db-c-debug #'body-2)))
(setf (symbol-function 'd-multiple-value-call)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'multiple-value-call) #'DEBUGGER::db-c-debug
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-multiple-value-list)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'multiple-value-list) #'DEBUGGER::db-c-debug)))
(setf (symbol-function 'd-multiple-value-prog1)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'multiple-value-prog1)
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-multiple-value-setq)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'multiple-value-setq) #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug)))
(setf (symbol-function 'd-nth-value)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'nth-value) #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-debug)))
(setf (symbol-function 'd-or)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'or) (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-pprint-logical-block)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'pprint-logical-block) #'DEBUGGER::db-c-variable-2
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-prog)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'prog)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-2
                                                                                                                   (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                                                             (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                               #'DEBUGGER::db-c-nothing))))
                                                                                                             #'DEBUGGER::db-c-nothing)
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    #'body-2)))
(setf (symbol-function 'd-prog*)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'prog*)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat (DEBUGGER::db-or (list #'DEBUGGER::db-c-variable-1
                                                                                                                   (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-1
                                                                                                                                                             (DEBUGGER::db-try #'DEBUGGER::db-c-debug
                                                                                                                                                                               #'DEBUGGER::db-c-nothing))))
                                                                                                             #'DEBUGGER::db-c-nothing)
                                                                                            #'DEBUGGER::db-c-nothing))
                                                    #'body-3)))
(setf (symbol-function 'd-prog1)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'prog1) (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-prog2)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'prog2) (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-progn)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'progn) (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-progv)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'progv) (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-psetf)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'psetf)
                                                    (DEBUGGER::db-repeat-simple (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug)
                                                      #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-psetq)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'psetq)
                                                    (DEBUGGER::db-repeat-simple (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug)
                                                      #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-push) (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'push) #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-var)))
(setf (symbol-function 'd-pushnew)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'pushnew) #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-var #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-return)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'return) (DEBUGGER::db-try #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-return-from)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'return-from) #'DEBUGGER::db-c-var
                                                    (DEBUGGER::db-try #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-setf)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'setf)
                                                    (DEBUGGER::db-repeat-simple (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug)
                                                      #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-setq)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'setq)
                                                    (DEBUGGER::db-repeat-simple (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug)
                                                      #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-symbol-macrolet)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'symbol-macrolet)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                                                                         (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                                                   #'DEBUGGER::db-c-var))
                                                                         #'DEBUGGER::db-c-nothing))
                                                    #'body-2)))
(setf (symbol-function 'd-tagbody)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'tagbody)
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-the) (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'the) #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug)))
(setf (symbol-function 'd-throw) (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'throw) #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug)))
(setf (symbol-function 'd-unless)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'unless)
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-unwind-protect)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'unwind-protect)
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-when)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'when) (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-with-accessors)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-accessors)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat-simple #'slot-entry #'DEBUGGER::db-c-nothing)) #'DEBUGGER::db-c-debug
                                                    #'body-2)))
(setf (symbol-function 'd-with-added-methods)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-added-methods)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'lambda-list #'DEBUGGER::db-c-use-var-1
                                                                                              (DEBUGGER::db-repeat-simple #'option #'DEBUGGER::db-c-nothing)))
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-with-compilation-unit)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-compilation-unit)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat-simple
                                                                         (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug)
                                                                         #'DEBUGGER::db-c-nothing))
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-with-hash-table-iterator)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-hash-table-iterator)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-debug))
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-with-input-from-string)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-input-from-string)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2 #'DEBUGGER::db-c-debug
                                                                                              (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-var
                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-2)))
(setf (symbol-function 'd-with-open-file)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-open-file)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2 #'DEBUGGER::db-c-debug
                                                                                              (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-var
                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-2)))
(setf (symbol-function 'd-with-open-stream)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-open-stream)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2 #'DEBUGGER::db-c-debug)) #'body-2)))
(setf (symbol-function 'd-with-output-to-string)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-output-to-string)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-variable-2
                                                                                              (DEBUGGER::db-try (DEBUGGER::db-sequence #'DEBUGGER::db-c-debug
                                                                                                                                       (DEBUGGER::db-try (DEBUGGER::db-sequence (DEBUGGER::db-constant ':element-type)
                                                                                                                                                                                #'DEBUGGER::db-c-var)
                                                                                                                                                         #'DEBUGGER::db-c-nothing))
                                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    #'body-2)))
(setf (symbol-function 'd-with-simple-restart)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-simple-restart)
                                                    (DEBUGGER::db-list (DEBUGGER::db-sequence #'DEBUGGER::db-c-var #'DEBUGGER::db-c-var
                                                                                              (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-var
                                                                                                #'DEBUGGER::db-c-nothing)))
                                                    (DEBUGGER::db-repeat-simple #'DEBUGGER::db-c-debug #'DEBUGGER::db-c-nothing))))
(setf (symbol-function 'd-with-slots)
      (DEBUGGER::db-call-exp (DEBUGGER::db-sequence (DEBUGGER::db-constant 'with-slots)
                                                    (DEBUGGER::db-list (DEBUGGER::db-repeat-simple #'slot-entry #'DEBUGGER::db-c-nothing)) #'DEBUGGER::db-c-debug
                                                    #'body-2)))
(defun DEBUGGER::add-code-exp (exp DEBUGGER::free position DEBUGGER::source) (cond ((null exp) nil) ((and (listp exp) (atom (first exp)) (not (null exp))) (let ((DEBUGGER::operator (first exp))) (case DEBUGGER::operator ((quote and) (d-and exp)) ((quote assert) (d-assert exp)) ((quote block) (d-block exp)) ((quote case) (d-case exp)) ((quote catch) (d-catch exp)) ((quote ccase) (d-ccase exp)) ((quote compiler-let) (d-compiler-let exp)) ((quote cond) (d-cond exp)) ((quote decf) (d-decf exp)) ((quote defclass) (d-defclass exp)) ((quote defgeneric) (d-defgeneric exp)) ((quote defmethod) (d-defmethod exp)) ((quote defun) (d-defun exp)) ((quote destructuring-bind) (d-destructuring-bind exp)) ((quote do) (d-do exp)) ((quote do*) (d-do* exp)) ((quote do-all-symbols) (d-do-all-symbols exp)) ((quote do-external-symbols) (d-do-external-symbols exp)) ((quote dolist) (d-dolist exp)) ((quote dotimes) (d-dotimes exp)) ((quote do-symbols) (d-do-symbols exp)) ((quote ecase) (d-ecase exp)) ((quote etypecase) (d-etypecase exp)) ((quote ctypecase) (d-ctypecase exp)) ((quote eval-when) (d-eval-when exp)) ((quote flet) (d-flet exp)) ((quote if) (d-if exp)) ((quote generic-flet) (d-generic-flet exp)) ((quote generic-function) (d-generic-function exp)) ((quote generic-labels) (d-generic-labels exp)) ((quote handler-bind) (d-handler-bind exp)) ((quote handler-case) (d-handler-case exp)) ((quote ignore-errors) (d-ignore-errors exp)) ((quote incf) (d-incf exp)) ((quote labels) (d-labels exp)) ((quote lambda) (d-lambda exp)) ((quote let) (d-let exp)) ((quote let*) (d-let* exp)) ((quote locally) (d-locally exp)) ((quote loop) (d-loop exp)) ((quote macrolet) (d-macrolet exp)) ((quote mapping) (d-mapping exp)) ((quote multiple-value-bind) (d-multiple-value-bind exp)) ((quote multiple-value-call) (d-multiple-value-call exp)) ((quote multiple-value-list) (d-multiple-value-list exp)) ((quote multiple-value-prog1) (d-multiple-value-prog1 exp)) ((quote multiple-value-setq) (d-multiple-value-setq exp)) ((quote nth-value) (d-nth-value exp)) ((quote or) (d-or exp)) ((quote pprint-logical-block) (d-pprint-logical-block exp)) ((quote prog) (d-prog exp)) ((quote prog*) (d-prog* exp)) ((quote prog1) (d-prog1 exp)) ((quote prog2) (d-prog2 exp)) ((quote progn) (d-progn exp)) ((quote progv) (d-progv exp)) ((quote psetf) (d-psetf exp)) ((quote psetq) (d-psetq exp)) ((quote push) (d-push exp)) ((quote pushnew) (d-pushnew exp)) ((quote return) (d-return exp)) ((quote return-from) (d-return-from exp)) ((quote setf) (d-setf exp)) ((quote setq) (d-setq exp)) ((quote symbol-macrolet) (d-symbol-macrolet exp)) ((quote tagbody) (d-tagbody exp)) ((quote the) (d-the exp)) ((quote throw) (d-throw exp)) ((quote unless) (d-unless exp)) ((quote unwind-protect) (d-unwind-protect exp)) ((quote when) (d-when exp)) ((quote with-accessors) (d-with-accessors exp)) ((quote with-added-methods) (d-with-added-methods exp)) ((quote with-compilation-unit) (d-with-compilation-unit exp)) ((quote with-hash-table-iterator) (d-with-hash-table-iterator exp)) ((quote with-input-from-string) (d-with-input-from-string exp)) ((quote with-open-file) (d-with-open-file exp)) ((quote with-open-stream) (d-with-open-stream exp)) ((quote with-output-to-string) (d-with-output-to-string exp)) ((quote with-simple-restart) (d-with-simple-restart exp)) ((quote with-slots) (d-with-slots exp)) (function (DEBUGGER::add-code-function exp DEBUGGER::free position DEBUGGER::source)) (t (cond ((not (symbolp DEBUGGER::operator)) exp) ((macro-function DEBUGGER::operator) (DEBUGGER::add-code-exp-macro exp DEBUGGER::free position DEBUGGER::source)) ((not (special-operator-p DEBUGGER::operator)) (DEBUGGER::add-code-exp-function exp DEBUGGER::free position DEBUGGER::source)) (t exp))))))))