anchor.diff:                             (setq type (cdr (nth type-n type-map))))
                            (pushl type param-spec)
                          ))))
  +                 ;; Provide a default value for VDECL
  +                 (unless vdecl-p
  +                   (setq vdecl '(values t)))
                    (values `(ftype (function ,param-spec ,vdecl) ,name)))
                  )
                (parse-meta (name llist forms)
  
positive.code:                    (multiple-value-bind (forms decls)
                         (parse-forms-declare forms nil)
                       (multiple-value-bind (type-map vdecl)
                           ;; FIXME also return VDECL here,
                           ;; a VALUES declaration as per the CMUCL compiler
                           ;; i.e Python
                           (parse-decl-types decls #+NIL lvars env)
                         (multiple-value-bind (ftype)
                             (parse-ftype name lvars type-map vdecl)
                           (values ftype docs decls forms))))))
  
negative.code:                    (t
                      (values forms decls)))))
               (parse-lambda-vars (llist)
                 ;; NB: Return value for PARSE-FTYPE LVARS
                 (let (vars context)
                   (dolist (expr llist vars)
                     (cond
  