Merge pull request #1095 from ajaxorg/mode/lisp

Add Lisp mode

demo/kitchen-sink/doclist.js

@@ -86,6 +86,7 @@ var docs = {
     "docs/jsx.jsx": "JSX",
     "docs/latex.tex": {name: "LaTeX", wrapped: true},
     "docs/less.less": "LESS",
+    "docs/lisp.lisp": "Lisp",
     "docs/liquid.liquid": "Liquid",
     "docs/lua.lua": "Lua",
     "docs/luapage.lp": "LuaPage",

demo/kitchen-sink/docs/lisp.lisp

@@ -0,0 +1,22 @@
+(defun prompt-for-cd ()
+   "Prompts
+    for CD"
+   (prompt-read "Title" 1.53 1 2/4 1.7 1.7e0 2.9E-4 +42 -7 #b001 #b001/100 #o777 #O777 #xabc55 #c(0 -5.6))
+   (prompt-read "Artist" &rest)
+   (or (parse-integer (prompt-read "Rating") :junk-allowed t) 0)
+  (if x (format t "yes") (format t "no" nil) ;and here comment
+  ) 0xFFLL -23ull
+  ;; second line comment
+  '(+ 1 2)
+  (defvar *lines*)                ; list of all lines
+  (position-if-not #'sys::whitespacep line :start beg))
+  (quote (privet 1 2 3))
+  '(hello world)
+  (* 5 7)
+  (1 2 34 5)
+  (:use "aaaa")
+  (let ((x 10) (y 20))
+    (print (+ x y))
+  ) LAmbDa
+
+  "asdad\0eqweqe"

demo/kitchen-sink/modelist.js

@@ -58,6 +58,7 @@ var modesByName = {
     jsx:        ["JSX"          , "jsx"],
     latex:      ["LaTeX"        , "latex|tex|ltx|bib"],
     less:       ["LESS"         , "less"],
+    lisp:       ["Lisp"         , "lisp"],
     liquid:     ["Liquid"       , "liquid"],
     lua:        ["Lua"          , "lua"],
     luapage:    ["LuaPage"      , "lp"], // http://keplerproject.github.com/cgilua/manual.html#templates