fixed oo

bin/pre.slime.expanded

@@ -10,11 +10,13 @@
 
 (define (string? x) "Checks if the argument is a string." (= (type x) :string))
 
-(define (lambda? x) "Checks if the argument is a function." (= (type x) :dynamic-function))
+(define (lambda? x) "Checks if the argument is a function." (= (type x) :lambda))
 
 (define (special-lambda? x) "Checks if the argument is a macro." (= (type x) :dynamic-macro))
 
-(define (built-n-function? x) "Checks if the argument is a built-in function." (= (type x) :built-in-function))
+(define (built-in-function? x) "Checks if the argument is a built-in function." (= (type x) :built-in-function))
+
+(define (callable? x) (or (lambda? x) (special-lambda? x) (built-in-function? x)))
 
 (define (end seq) "Returns the last pair in the sqeuence." (if (or (nil? seq) (not (pair? (rest seq)))) seq (end (rest seq))))