@ -1,8 +1,11 @@
;; Common Lisp
(require '#:package-locks)
(ext:without-package-locks
(defun gcd (a b)
(if (> b 0) (gcd b (mod a b)) a)
)
(princ "test")