Project Euler #5 in Common Lisp

5.lisp

;;;;
;;;;    5.lisp
;;;;    ProjectEuler
;;;;
;;;;    Created by bitdewy on 4/10/13.
;;;;    Copyright (c) 2013 bitdewy. All rights reserved.
;;;;
 
;; Project Euler #5
(defun smallest_multiple1 (max)
  (do ((a 1 (1+ a)) (result 1 (lcm result a)))
    ((> a max) result)
    t))

(smallest_multiple1 20)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun smallest_multiple2 (max)
  (reduce #'lcm
    (do ((sequence nil) (i 1 (1+ i)))
      ((> i max) sequence)
      (push i sequence))))

(smallest_multiple2 20)