X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;fp=src%2Flisp%2Fao_lisp_const.lisp;h=9fb7634c5858e1cd7d4d76330b8ab72953ad9da6;hb=6d2f271a45759bd792d299f04a424d3382ef4798;hp=861a4fc80eed91314a76453f63528fef4d21340e;hpb=12a1f6ad48f2b924f71239effeb90afca75a090f;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index 861a4fc8..9fb7634c 100644
--- a/src/lisp/ao_lisp_const.lisp
+++ b/src/lisp/ao_lisp_const.lisp
@@ -159,9 +159,6 @@
 (odd? 3)
 (odd? -1)
 
-(define exact? number?)
-(defun inexact? (x) #f)
-
 					; (if <condition> <if-true>)
 					; (if <condition> <if-true> <if-false)