updated

alokdeka · Apr 18, 2020 · 0fd68d9 · 0fd68d9
1 parent 1f73b63
commit 0fd68d9
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/program.lisp b/program.lisp
@@ -3,10 +3,10 @@
     (read))
 (defun hello-you 
     (*name*)
-    (format t "Hello ~s!~%" *name*)
-    (format t "Hello ~a!~%" *name*)
-    (format t "Hello ~10a!~%" *name*)
-    (format t "Hello ~10@a!~%" *name*)
+    (format t "Hello ~a!~%" *name*) ;; ~a shows the value
+    (format t "Hello ~s!~%" *name*) ;; ~s shows quotes around the value
+    (format t "Hello ~10a!~%" *name*) ;; ~10a adds 10 spaces for the value with extra space to the right
+    (format t "Hello ~10@a!~%" *name*) ;; ~10@a adds 10 spaces for the value with extra space to the left
 )
 (setq *print-case* :capitalize)
 (hello-you *name*)