453 |
Likewise for other constructs as necessary." |
Likewise for other constructs as necessary." |
454 |
;; The code in edebug-defun should be consistent with this, but not |
;; The code in edebug-defun should be consistent with this, but not |
455 |
;; the same, since this gets a macroexpended form. |
;; the same, since this gets a macroexpended form. |
456 |
(cond ((and (eq (car form) 'defvar) |
(cond ((not (listp form)) |
457 |
|
form) |
458 |
|
((and (eq (car form) 'defvar) |
459 |
(cdr-safe (cdr-safe form))) |
(cdr-safe (cdr-safe form))) |
460 |
;; Force variable to be bound. |
;; Force variable to be bound. |
461 |
(cons 'defconst (cdr form))) |
(cons 'defconst (cdr form))) |