Commit b2e93f111ec4886e16f682c4501f9a46f6869eea

Thomas de Grivel 2018-06-16T15:01:53

explicit call to fdefinition

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
diff --git a/thot.lisp b/thot.lisp
index 2eb8cf8..bc111a8 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -514,10 +514,10 @@ The requested url "
     (404-not-found-handler)))
 
 (defun call-handler-form (list)
-  (apply (first list) (rest list)))
+  (apply (fdefinition (first list)) (rest list)))
 
 (defun call-handler (list)
-  (apply (first list) (rest list)))
+  (apply (fdefinition (first list)) (rest list)))
 
 (defun request-handler (request reply)
   (let ((handlers *url-handlers*)