flow

摘要： 工作时间里如果把工作做完了，可以做自己的事情。 阅读全文

摘要： 分别将参数加1与减1后返回。有一点误导，因为(1- x)返回x-1而不是1-x。 CL-USER> (setf x 5) 5 CL-USER> x 5 CL-USER> (1+ x) 6 CL-USER> x 5 CL-USER> (1- x) 4 CL-USER> x 5 阅读全文

摘要： 宏incf及decf分别递增和递减数字。这样形式的表达式(incf x n)类似于(setf x (+ x n))的效果，而(decf x n)类似于(setf x (- x n))的效果。这两个形式里，第二个参数皆是选择性给入的，缺省值为1. CL-USER> (setf x 5) 5 CL-USER> (incf x 2) 7 CL-USER> x... 阅读全文

摘要： CL-USER> (defun palindrome? (x) (let ((mid (/ (length x) 2))) (equal (subseq x 0 (floor mid)) (reverse (subseq x (ceiling mid)))))) PALINDROME? C... 阅读全文

摘要： 给defparameter传入一个符号和一个值，来创造一个全局变量； defconstant创造一个全局常量。 CL-USER> (defparameter *glob* 99) *GLOB* CL-USER> (defconstant limit (+ *glob* 1)) LIMIT CL-USER> *glob* 99 CL... 阅读全文

摘要： 对equal来说，若它的参数打印出的值相同，返回真。 对eql来说，只有它的参数是相同的对象时才返回真。 CL-USER> (eql (cons 'a nil) (cons 'a nil)) NIL CL-USER> (equal (cons 'a nil) (cons 'a nil)) T CL-USER> (setf x (cons 'a nil... 阅读全文

摘要： 今天早上上司找谈话，讲工资的事情，其实就是安抚人心，因为这个时候人事浮动。从2012年8月份进来到现在5个月了，跟我一起进来的同事涨了工资，我却一直没有涨工资，面试的时候上司说让我试用一个月，可以的话就转正，12月份中旬的时候我给上司和人事经理发邮件讲了转正的事情，然后人事经理找我谈话说我一招进来就算正式员工，至于涨工资的事情要到年底统一涨。今天上司说每年3月份是讨论涨工资的时候，所以要我好好到这里学习，到时候给我涨工资。没问题，好好学习，有了技术不怕找不到工作。加油，Powerbuilder,Clisp! 阅读全文

摘要： char函数取得字符串中指定位置的字符(zero-base) char=比较两字符是否相等 CL-USER> (setf x "hello") "hello" CL-USER> (char x 1) #\e CL-USER> (char= #\e (char x 1)) T CL-USER> (char= #\E (char x ... 阅读全文

摘要： 所有条件式的母体是cond,它带有两个新的优点：它允许多重条件式，与每个条件式相关的代码是隐式的progn。它预期在我们需要在一个if中使用另一个if的情况下使用。举例来说，这个伪member函数 CL-USER> (defun our-member (obj lst) (if (atom lst) nil ... 阅读全文

摘要： CL-USER> (defstruct buf vec (start -1) (used -1) (new -1) (end -1)) BUF CL-USER> (defun bref (buf n) (svref (buf-vec buf) (mod n (length (buf-vec ... 阅读全文