diff options
| author | Teddy Wing | 2023-04-21 02:14:23 +0200 |
|---|---|---|
| committer | Teddy Wing | 2023-04-21 02:14:23 +0200 |
| commit | 8063f5533d66b487c9db5c83d12404647fc0c1ef (patch) | |
| tree | 548830bfe43a95e1decbf7c295c333a94050d71e /src | |
| parent | 7a780424c6b54a769300dc04c8e21671240d0427 (diff) | |
| download | xfdf-8063f5533d66b487c9db5c83d12404647fc0c1ef.tar.bz2 | |
xfdf.lisp: Extract '2' magic number to constant
Diffstat (limited to 'src')
| -rw-r--r-- | src/xfdf.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/xfdf.lisp b/src/xfdf.lisp index 2dfb493..83ada74 100644 --- a/src/xfdf.lisp +++ b/src/xfdf.lisp @@ -30,12 +30,14 @@ list." output-stream) +(defconstant +field-base-indentation+ 2) + (defun field-xfdf (name value) (field-xfdf* name value 0)) (defun field-xfdf* (name value nesting-level) "" - (let ((indent (+ 2 nesting-level))) + (let ((indent (+ +field-base-indentation+ nesting-level))) ;; TODO: Add checkbox default values. (format t "debug1: n'~A' : v'~A' : n'~A'~%" name value nesting-level) (if (consp value) |