kyle
/
binary
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simplify docstrings.

This commit is contained in:
Kyle 2015-08-28 11:39:26 -07:00
parent 40e3a0c595
commit 3859117b99
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
binary.lisp
View File

@ -66,9 +66,8 @@ integer."
(let* ((signed (equal #\I (elt (symbol-name const-name) 0))) (let* ((signed (equal #\I (elt (symbol-name const-name) 0)))
(docstring (docstring
(format nil (format nil
"Read ~A ~Asigned ~A-bit integer from a stream." "Read a~Asigned ~A-bit integer from a stream."
(if signed "a" "an") (if signed " " "n un")
(if signed "" "un")
(subseq (symbol-name const-name) 1)))) (subseq (symbol-name const-name) 1))))
`(export `(export
(defun ,(intern (format nil "READ-~A" const-name)) (defun ,(intern (format nil "READ-~A" const-name))
@ -80,9 +79,8 @@ integer."
(let* ((signed (equal #\I (elt (symbol-name const-name) 0))) (let* ((signed (equal #\I (elt (symbol-name const-name) 0)))
(docstring (docstring
(format nil (format nil
"Write ~A ~Asigned ~A-bit integer to a stream." "Write a~Asigned ~A-bit integer to a stream."
(if signed "a" "an") (if signed " " "n un")
(if signed "" "un")
(subseq (symbol-name const-name) 1)))) (subseq (symbol-name const-name) 1))))
`(export `(export
(defun ,(intern (format nil "WRITE-~A" const-name)) (defun ,(intern (format nil "WRITE-~A" const-name))