*github:gists*

  b0d1630... 04/14/19 13:31       public     
+ d9aa1d7... 04/13/19 23:14       public     classmethod and staticmethod implement for python3.6
+ d71a4fd... 04/12/19 09:33       public     
  c2c8790... 03/21/19 11:12       public     
+ 648c7e1... 03/12/19 23:06       public     JAVA GUI / ABCL GUI
  4f0b15e... 02/21/19 09:49       public     
  5be04a4... 02/08/19 18:13       private    
+ 2d30a57... 02/08/19 18:11       private    EOSIO-contract eoshop
  e1d8bdb... 12/11/18 20:40       public     自制@裝飾器
  c145d35... 12/11/18 19:51       public     [practice] [Common Lisp] CFFI - c-printf example (Common Lisp) 
  d3e1a04... 12/09/18 13:04       private    [draft] Common Lisp
  2d2af36... 12/09/18 07:06       public     example for read macro
+ c6946a4... 12/04/18 13:35       public     my local setting. base on purcell
+ a8573ca... 12/04/18 10:51       public     Try Common Lisp GTK(cl-cffi-gtk)
+ 52690cf... 12/04/18 01:34       public     Common lisp 錯誤處理練習
  1d2e416... 11/28/18 11:18       public     Try use FiveAM which is a test framework for Common Lisp.
+ df1b97e... 11/22/18 10:39       public     [practice] [Common Lisp] hello CFFI (Common Lisp + C)
+ e98ee70... 11/20/18 00:33       public     [practice] emacs elisp send-regrion-to-term
+ 00212c5... 08/26/18 16:24       public     [practice] Lua interact with C
+ 63c38cb... 08/26/18 16:07       public     [pratice] Python3.5 call C++ function with extern "C"
  86633c5... 08/08/18 20:18       public     [Emacs Lisp]Example of x-popup-menu

gistfile1.lisp

(unintern 'f1)
(unintern 'f2)
(unintern 'f3)
(unintern 'f4)
(unintern 'f5)
(unintern 'x)


(let ((x 1))
  (defun f1 nil
    (print 'f1)
    (print x)
    (f2 111)
    (print 'f1)
    (print x)))

(defun f4 nil
  (let ((x 4))
    (print 'f4)
    (print x)
    (f2 444)
    (print 'f4)
    (print x)))

(let ((x 2222))
  (defun f2 (&optional (num 99))
    (print 'f2)
    (print x)
    (format t "~%Set X: ~A~%" num)
    (setf x num)))



(defvar x 100)
(setf x 100)

(let ((x 3))
  (defun f3 nil
    (print 'f3)
    (print x)
    (f2 333)
    (print 'f3)
    (print x)))

(defun f5 nil
  (let ((x 5))
    (print 'f5)
    (print x)
    (f2 555)
    (print 'f5)
    (print x)))

(f2)
(print 'e)
(print x)

(f1)
(print 'e)
(print x)

(f3)
(print 'e)
(print x)

(f4)
(print 'e)
(print x)

(f5)
(print 'e)
(print x)