fix range on list

crandom.lisp

@@ -21,7 +21,8 @@
 
 (defun %crandom-list (range &rest params)
   (setf (car range) (apply 'crandom params))
-  (unless (null (cdr range))
+  (if (null (cdr range))
+      (cons (car range) nil)
       (cons (car range) (apply '%crandom-list (cons (cdr range) params)))))
 
 (defun crandom-range (range &rest params)

urandom.lisp

@@ -19,7 +19,8 @@
 
 (defun %urandom-list (range &rest params)
   (setf (car range) (apply 'urandom params))
-  (unless (null (cdr range))
+  (if (null (cdr range))
+      (cons (car range) nil)
       (cons (car range) (apply '%urandom-list (cons (cdr range) params)))))
 
 (defun urandom-range (range &rest params)