cmoore
/ servicle.lisp
Last active
December 14, 2015 15:19
A quickie serve-the-current-directory script.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ql:quickload 'cl-fad) | |
| (ql:quickload 'hunchentoot) | |
| (defun serve-this (args) | |
| (declare (ignore args)) | |
| (hunchentoot:start (make-instance 'hunchentoot:easy-acceptor | |
| :document-root (probe-file #P".") | |
| :port 4040)) | |
| (read-char *standard-input*) |
cmoore
/ gist:4365895
Created
December 23, 2012 20:36
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun number-to-word (number) | |
| (cond ((string-equal number "12") "twelve") | |
| (t "what"))) | |
| (defun test-it () | |
| `(format nil "~a" ,(number-to-word "12"))) | |
| (defmacro test-it-m () | |
| `(format nil "~a" ,(number-to-word "12"))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defmacro with-x (login pass &rest body) | |
| `(let ((the-connection (connect ,login ,pass) | |
| ,@body)) | |
| (defun test () | |
| (with-x "name" "pass" | |
| (do-something the-connection))) | |
cmoore
/ gist:3349964
Created
August 14, 2012 14:51
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Tue Aug 14 07:44:16 [initandlisten] MongoDB starting : pid=32549 port=27017 dbpath=./data 64-bit host=preston.local | |
| Tue Aug 14 07:44:16 [initandlisten] | |
| Tue Aug 14 07:44:16 [initandlisten] ** WARNING: soft rlimits too low. Number of files is 256, should be at least 1000 | |
| Tue Aug 14 07:44:16 [initandlisten] db version v2.2.0-rc0, pdfile version 4.5 | |
| Tue Aug 14 07:44:16 [initandlisten] git version: 33dc8445316479bbaa062db00f179fa5c39bbddb | |
| Tue Aug 14 07:44:16 [initandlisten] build info: Darwin bs-osx-106-x86-64-1.local 10.8.0 Darwin Kernel Version 10.8.0: Tue Jun 7 16:33:36 PDT 2011; root:xnu-1504.15.3~1/RELEASE_I386 i386 BOOST_LIB_VERSION=1_49 | |
| Tue Aug 14 07:44:16 [initandlisten] options: { dbpath: "./data", logpath: "./out.log" } | |
| Tue Aug 14 07:44:16 [initandlisten] journal dir=./data/journal | |
| Tue Aug 14 07:44:16 [initandlisten] recover : no journal files present, no recovery needed | |
| Tue Aug 14 07:44:16 [websvr] admin web console waiting for connections on port 28017 |
cmoore
/ gist:3349959
Created
August 14, 2012 14:50
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Tue Aug 14 07:43:08 [initandlisten] MongoDB starting : pid=32541 port=27017 dbpath=./data 64-bit | |
| Tue Aug 14 07:43:08 [initandlisten] db version v1.8.5, pdfile version 4.5 | |
| Tue Aug 14 07:43:08 [initandlisten] git version: 403c8dadcd56f68dcbe06013ecbfac67b32a22ac | |
| Tue Aug 14 07:43:08 [initandlisten] build sys info: Darwin erh2.10gen.cc 9.8.0 Darwin Kernel Version 9.8.0: Wed Jul 15 16:55:01 PDT 2009; root:xnu-1228.15.4~1/RELEASE_I386 i386 BOOST_LIB_VERSION=1_40 | |
| Tue Aug 14 07:43:08 [initandlisten] waiting for connections on port 27017 | |
| Tue Aug 14 07:43:08 [websvr] web admin interface listening on port 28017 | |
| Tue Aug 14 07:43:13 [initandlisten] connection accepted from 127.0.0.1:60138 #1 | |
| Tue Aug 14 07:43:13 [conn1] end connection 127.0.0.1:60138 | |
| Tue Aug 14 07:43:13 [initandlisten] connection accepted from 127.0.0.1:60139 #2 | |
| Tue Aug 14 07:43:13 [FileAllocator] allocating new datafile ./data/test.ns, filling with zeroes... |
cmoore
/ gist:3349948
Created
August 14, 2012 14:48
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Tue Aug 14 07:41:16 [initandlisten] MongoDB starting : pid=32516 port=27017 dbpath=./data 64-bit | |
| ** NOTE: This is a development version (1.7.6) of MongoDB. | |
| ** Not recommended for production. | |
| Tue Aug 14 07:41:16 [initandlisten] db version v1.7.6, pdfile version 4.5 | |
| Tue Aug 14 07:41:16 [initandlisten] git version: 5909aa6962bebe24f7cd65b924053a5cf70b83d3 | |
| Tue Aug 14 07:41:16 [initandlisten] sys info: Darwin erh2.10gen.cc 9.6.0 Darwin Kernel Version 9.6.0: Mon Nov 24 17:37:00 PST 2008; root:xnu-1228.9.59~1/RELEASE_I386 i386 BOOST_LIB_VERSION=1_40 | |
| Tue Aug 14 07:41:16 [initandlisten] waiting for connections on port 27017 | |
| Tue Aug 14 07:41:16 [websvr] web admin interface listening on port 28017 |
cmoore
/ *slime-repl sbcl*.txt
Created
August 14, 2012 14:45
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| CL-MONGO-TEST> (quick-test) | |
| ---- starting test of package : { test counting documents } --------------- | |
| testing counting : client count : 43 -- server count 43.0d0 | |
| ---- finished test of package { test counting documents } sucessfully ------ | |
| ---- starting test of package : { finding documents by field } --------------- | |
| findOne is default : 1 | |
| limit == 0 returns all 43 : 43 | |
| ---- finished test of package { finding documents by field } sucessfully ------ | |
| ---- starting test of package : { deleting documents } --------------- | |
| ---- finished test of package { deleting documents } sucessfully ------ |
cmoore
/ *slime-repl sbcl*.txt
Created
August 14, 2012 14:43
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| CL-MONGO-TEST> (quick-test) | |
| ---- starting test of package : { test counting documents } --------------- | |
| testing counting : client count : 43 -- server count 43.0d0 | |
| ---- finished test of package { test counting documents } sucessfully ------ | |
| ---- starting test of package : { finding documents by field } --------------- | |
| findOne is default : 1 | |
| limit == 0 returns all 43 : 43 | |
| ---- finished test of package { finding documents by field } sucessfully ------ | |
| ---- starting test of package : { deleting documents } --------------- | |
| ---- finished test of package { deleting documents } sucessfully ------ |
cmoore
/ *slime-repl sbcl*.txt
Created
August 14, 2012 14:42
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| CL-MONGO-TEST> (quick-test) | |
| ---- starting test of package : { test counting documents } --------------- | |
| testing counting : client count : 43 -- server count 43.0d0 | |
| ---- finished test of package { test counting documents } sucessfully ------ | |
| ---- starting test of package : { finding documents by field } --------------- | |
| findOne is default : 1 | |
| limit == 0 returns all 43 : 43 | |
| ---- finished test of package { finding documents by field } sucessfully ------ | |
| ---- starting test of package : { deleting documents } --------------- | |
| ---- finished test of package { deleting documents } sucessfully ------ |
cmoore
/ cl-mongo-test-quick-test.txt
Created
August 13, 2012 22:43
cl-mongo-test:quick-test normal output
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| CL-MONGO-TEST> (quick-test) | |
| ---- starting test of package : { test counting documents } --------------- | |
| testing counting : client count : 43 -- server count 43.0d0 | |
| ---- finished test of package { test counting documents } sucessfully ------ | |
| ---- starting test of package : { finding documents by field } --------------- | |
| findOne is default : 1 | |
| limit == 0 returns all 43 : 43 | |
| ---- finished test of package { finding documents by field } sucessfully ------ | |
| ---- starting test of package : { deleting documents } --------------- | |
| ---- finished test of package { deleting documents } sucessfully ------ |