From 3859117b99e9b8a8be64b5941821abdd2f33ee4f Mon Sep 17 00:00:00 2001 From: Kyle Date: Fri, 28 Aug 2015 11:39:26 -0700 Subject: [PATCH] Simplify docstrings. --- binary.lisp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/binary.lisp b/binary.lisp index 6921e5a..098e0fa 100644 --- a/binary.lisp +++ b/binary.lisp @@ -66,9 +66,8 @@ integer." (let* ((signed (equal #\I (elt (symbol-name const-name) 0))) (docstring (format nil - "Read ~A ~Asigned ~A-bit integer from a stream." - (if signed "a" "an") - (if signed "" "un") + "Read a~Asigned ~A-bit integer from a stream." + (if signed " " "n un") (subseq (symbol-name const-name) 1)))) `(export (defun ,(intern (format nil "READ-~A" const-name)) @@ -80,9 +79,8 @@ integer." (let* ((signed (equal #\I (elt (symbol-name const-name) 0))) (docstring (format nil - "Write ~A ~Asigned ~A-bit integer to a stream." - (if signed "a" "an") - (if signed "" "un") + "Write a~Asigned ~A-bit integer to a stream." + (if signed " " "n un") (subseq (symbol-name const-name) 1)))) `(export (defun ,(intern (format nil "WRITE-~A" const-name))