;(defun binary-converter (input) ; (if (= input 0) ()) ; (when (oddp input) (print 1) (binary-converter (/ (- input 1)2))) ; (when (evenp input) (print 0) (binary-converter (/ input 2)))) ;(defun printbinary (input) ; (print binary-convert (input))) (defun binary-convert (input) (when (= input 0) ()) (when (oddp input) (+ 1 (* 10 (binary-convert (/ (- input 1) 2))))) (when (evenp input) (* 10 (binary-convert (/ input 2)))))