From: David Vázquez <davazp@gmail.com>
Date: Sun, 20 Jan 2013 17:29:32 +0000 (+0000)
Subject: Fix (/ N)
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5a23145bdead402c590c51d9e6298def9e072d8d;p=jscl.git

Fix (/ N)
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 0258d41..d485335 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1600,7 +1600,7 @@
   (let ((args (cons x others)))
     (variable-arity args
       (if (null others)
-	  (concat "/" (car args))
+	  (concat "1 /" (car args))
 	  (join args "/")))))
 
 (define-builtin mod (x y) (num-op-num x "%" y))