working snapshot

[rrq/lsp-utils.git] / lsp-misc / misc.lsp

diff --git a/lsp-misc/misc.lsp b/lsp-misc/misc.lsp
index cf92d9cb2b110469ed163a381daef0d2d375c1cb..f60d0d3ea86fa7fe8ae2c5820bb426a89f958986 100644 (file)
--- a/lsp-misc/misc.lsp
+++ b/lsp-misc/misc.lsp
@@ -3,7 +3,7 @@
 
 (define (die N)
   (when (args) (write-line 2 (join (map string (args)) " ")))
-  (exit N))
+  (and N (exit N)))
 (global 'die)
 
 ;; Print binary byte as octal or as ASCII character [32-126]
@@ -12,5 +12,5 @@
 
 ;; Print string as binary octals
 (define (octals-string S)
-  (join (map octal-byte (unpack (dup "b" (length S)) S))) "")
+  (join (map octal-byte (unpack (dup "b" (length S)) S))))
 (global 'octals-string 'octal-byte)