Ticket #569: ccl-lib.lisp

File ccl-lib.lisp, 197 bytes (added by xxxxxx, 10 years ago)

Test case as a small file for convenience

Line 
1(defvar *libs* nil)
2
3(loop for lib in '("libxcb.so.1" "libxcb-shm.so.0")
4      do (push (ccl:open-shared-library lib) *libs*))
5
6;; (ccl:close-shared-library (first (reverse *libs*)) :completely t)