# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1473858924 0
# Node ID d980f1e0d0fac645158e7158d73d5cedc9f9d620
# Parent  e7bd00f6516fd7ff66660d680de034085ec969b7
Make `pr` a bit nicer behaving

diff -r e7bd00f6516f -r d980f1e0d0fa losh.lisp
--- a/losh.lisp	Tue Aug 23 17:40:11 2016 +0000
+++ b/losh.lisp	Wed Sep 14 13:15:24 2016 +0000
@@ -1170,12 +1170,15 @@
 (defun pr (&rest args)
   "Print `args` readably, separated by spaces and followed by a newline.
 
+  Returns the first argument, so you can just wrap it around a form without
+  interfering with the rest of the program.
+
   This is what `print` should have been.
 
   "
   (format t "~{~S~^ ~}~%" args)
   (finish-output)
-  (values))
+  (first args))
 
 (defun bits (n size &optional (stream t))
   "Print the bits of the `size`-bit two's complement integer `n` to `stream`.