2016-03-07 23:34:36 +01:00
hljs . registerLanguage ( "lisp" , function ( b ) { var e = "[a-zA-Z_\\-\\+\\*\\/\\<\\=\\>\\&\\#][a-zA-Z0-9_\\-\\+\\*\\/\\<\\=\\>\\&\\#!]*" , c = "\\|[^]*?\\|" , r = "(\\-|\\+)?\\d+(\\.\\d+|\\/\\d+)?((d|e|f|l|s|D|E|F|L|S)(\\+|\\-)?\\d+)?" , a = { cN : "meta" , b : "^#!" , e : "$" } , l = { cN : "literal" , b : "\\b(t{1}|nil)\\b" } , n = { cN : "number" , v : [ { b : r , r : 0 } , { b : "#(b|B)[0-1]+(/[0-1]+)?" } , { b : "#(o|O)[0-7]+(/[0-7]+)?" } , { b : "#(x|X)[0-9a-fA-F]+(/[0-9a-fA-F]+)?" } , { b : "#(c|C)\\(" + r + " +" + r , e : "\\)" } ] } , i = b . inherit ( b . QSM , { i : null } ) , t = b . C ( ";" , "$" , { r : 0 } ) , s = { b : "\\*" , e : "\\*" } , u = { cN : "symbol" , b : "[:&]" + e } , d = { b : e , r : 0 } , f = { b : c } , m = { b : "\\(" , e : "\\)" , c : [ "self" , l , i , n , d ] } , o = { c : [ n , i , s , u , m , d ] , v : [ { b : "['`]\\(" , e : "\\)" } , { b : "\\(quote " , e : "\\)" , k : { name : "quote" } } , { b : "'" + c } ] } , v = { v : [ { b : "'" + e } , { b : "#'" + e + "(::" + e + ")*" } ] } , N = { b : "\\(\\s*" , e : "\\)" } , A = { eW : ! 0 , r : 0 } ; return N . c = [ { cN : "name" , v : [ { b : e } , { b : c } ] } , A ] , A . c = [ o , v , N , l , n , i , t , s , u , f , d ] , { i : /\S/ , c : [ n , a , l , i , t , o , v , N , d ] } } ) ;
