- 博客(4)
- 资源 (4)
- 收藏
- 关注
原创 common lisp中获取当前文件路径
1,直接获取当前文件夹的路径:(print (probe-file ".") )2.或许打开文件的大小:(let ((file (open "hello.c" :if-does-not-exist nil))) (print (file-length file)) (close file) )3.获取打开文件中的内容(let ((in (open "hello.c
2015-02-05 16:06:52 5055
原创 common lisp中cond
看代码:(defvar *arch-enemy* nil)(print *arch-enemy*)(defun pudding-eater (person) (cond ((eq person 'henry) (setf *arch-enemy* 'stupid-lisp-alien) '(alien you ate my
2015-02-04 14:36:32 1411
原创 common lisp初始化数组
1.首先构造一个一维数组:(setf foo (make-array 4))设置这个数组的第三个元素为(x,y,z)(setf (aref foo 2) '(x y z))设置第三个元素为hash 表(print foo)(setf (car (aref foo 2)) (make-hash-table)初始化hash 表 (setf (gethash 'zoink (c
2015-02-03 10:49:32 857
原创 wxpython窗体移动代码
1.定义窗体绑定函数 bgParent.Bind(wx.EVT_LEFT_DOWN, self.OnPanelLeftDown) bgParent.Bind(wx.EVT_MOTION, self.OnPanelMotion) bgParent.Bind(wx.EVT_LEFT_UP, self.OnPanelLeftUp)2.函数实现
2015-02-02 11:32:07 1287
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人