(defstruct db-info
"This is data-base connection info"
addr port name user pass)
(defun make-host (addr port)
#'(lambda (name user pass)
(let ((h (make-db-info)))
(setf (db-info-addr h) addr
(db-info-port h) port
(db-info-name h) name
(db-info-user h) user
(db-info-pass h) pass)
h)))
(let* ((make-conn (make-host "dream" 3306))
(c1 (funcall make-conn "tpndb" "root" "tpnpass"))
(c2 (funcall make-conn "gansu" "root" "1234567")))
(print c1)
(print c2))
阅读(188) | 评论(0) | 转发(0) |