fork download
copy 
  1. (defun df (x) 'outer)
  2.  
  3. (defun test-1 (&key (df #'car))
  4.   (funcall #'df '(1 2 3)))
  5.  
  6. (defun test-2 (&key (df #'car))
  7.   (funcall   df '(1 2 3)))
  8.  
  9. (defun test-3 (&key (df #'car))
  10.   (flet ((df (x) 'inner))
  11.     (list (funcall           df  '(1 2 3))
  12.           (funcall (quote    df) '(1 2 3))
  13.           (funcall (function df) '(1 2 3)))))
  14.  
  15. (print (test-1))
  16. (print (test-2))
  17. (print (test-3))
  18.  
Success #stdin #stdout 0.01s 25028KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
OUTER 
1 
(1 OUTER INNER)
https://ideone.com/AW0nMJ
language:
Common Lisp (sbcl 1.4.16)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!