Hatena::Groupcadr

わだばLisperになる このページをアンテナに追加 RSSフィード

2004 | 12 |
2005 | 01 | 02 | 07 | 10 | 11 |
2006 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 11 |

2006-10-18

Google Code Search

| 23:05 | Google Code Search - わだばLisperになる を含むブックマーク はてなブックマーク - Google Code Search - わだばLisperになる

暇な感じなので、Google Code Searchで、適当にLisp的

な物を検索。

Lisp系はは大きくLispとschemeの二つに絞り込めるっぽい。

何となくdefineq lang:lispって感じで探してみる。

; The DEFINEQ function is used to define a set of Interlisp functions.
; We define DEFINEQ so that it saves the function definition on a
; property of the function called INTERLISP-DEFINITION.

(defmacro defineq (&rest forms)
  (let ((value nil))
    (do ((forms forms (cdr forms)))
	((null forms))
	(setq value (cons `(setf (get (quote ,(car (car forms)))
				      'interlisp-definition)
				 (quote ,(cadr (car forms))))
			  value))
        (format t "~A " (caar forms))
        (force-output))
    (cons 'prog (cons nil value))))

こんなのが引っ掛かりました。それなりに面白そう。

ゲスト



トラックバック - http://cadr.g.hatena.ne.jp/g000001/20061018