(index ("#|" 0) ("#;" 192) ("#," 634) ("#${" 889) ("#:" 1178) ("#<<" 1548) ("#<#" 1891) ("#>" 2509) ("#%" 2624) ("#!" 2707) ("#cs" 3592) ("#ci" 3741) ("#+" 3892))
(def (sig (read "#|" (id "#|"))) (pre "#| ... |# ") (p "A multiline " (i "block") " comment. May be nested. Implements " (link "http://srfi.schemers.org/srfi-30/srfi-30.html" "SRFI-30") "."))
(def (sig (read "#;" (id "#;"))) (pre "#;EXPRESSION") (p "Treats " (tt "EXPRESSION") " as a comment.  That is, the comment runs through the whole S-expression, regardless of newlines, which saves you from having to comment out every line, or add a newline in the middle of your parens to make the commenting of the last line work, or other things like that. Implements " (link "http://srfi.schemers.org/srfi-62/srfi-62.html" "SRFI-62") "."))
(def (sig (read "#," (id "#,"))) (pre "#,(CONSTRUCTORNAME DATUM ...)") (p "Allows user-defined extension of external representations. (For more information see the documentation for " (link "http://srfi.schemers.org/srfi-10/srfi-10.html" "SRFI-10") ")"))
(def (sig (read "#${" (id "#${"))) (pre " #${ HEX ... }") (p "Syntax for literal \"blobs\" (byte-sequences). Expects hexadecimal digits and ignores any whitespace characters:") (pre " #;1> ,d '#${deadbee f}\n blob of size 4:\n    0: de ad be ef                                     ...."))
(def (sig (read "#:" (id "#:"))) (pre "#:SYMBOL\nSYMBOL:\n:SYMBOL") (p "Syntax for keywords. Keywords are symbols that evaluate to themselves, and as such don't have to be quoted.  Either " (tt "SYMBOL:") " or " (tt ":SYMBOL") " is accepted, depending on the setting of the " (tt "keyword-style") " parameter, but never both.  " (tt "#:SYMBOL") " is always accepted."))
(def (sig (read "#<<" (id "#<<"))) (pre "#<<TAG") (p "Specifies a multiline string constant. Anything up to a line equal to " (tt "TAG") " (or end of file) will be returned as a single string:") (pre "(define msg #<<END\n \"Hello, world!\", she said.\nEND\n)") (p "is equivalent to") (pre "(define msg \"\\\"Hello, world!\\\", she said.\")"))
(def (sig (read "#<#" (id "#<#"))) (pre "#<#TAG") (p "Similar to " (tt "#<<") ", but allows substitution of embedded Scheme expressions prefixed with " (tt "#") " and optionally enclosed in curly brackets. Two consecutive " (tt "#") "s are translated to a single " (tt "#") ":") (pre "(define three 3)\n(display #<#EOF\nThis is a simple string with an embedded `##' character\nand substituted expressions: (+ three 99) ==> #(+ three 99)\n(three is \"#{three}\")\nEOF\n)") (p "prints") (pre "This is a simple string with an embedded `#' character\nand substituted expressions: (+ three 99) ==> 102\n(three is \"3\")"))
(def (sig (read "#>" (id "#>"))) (pre "#> ... <#") (p "Abbreviation for " (tt "(foreign-declare \" ... \")") "."))
(def (sig (read "#%" (id "#%"))) (pre "#%... ") (p "Reads like a normal symbol."))
(def (sig (read "#!" (id "#!"))) (pre "#!... ") (p "Interpretation depends on the directly following characters. Only the following are recognized. Any other case results in a read error.") (dl (dt "Line Comment") (dd "If followed by whitespace or a slash, then everything up the end of the current line is ignored") (dt "Eof Object") (dd "If followed by the character sequence " (tt "eof") ", then the (self-evaluating) end-of-file object is returned") (dt "DSSSL Formal Parameter List Annotation") (dd "If followed by any of the character sequences " (tt "optional") ", " (tt "rest") " or " (tt "key") ", then a symbol with the same name (and prefixed with " (tt "#!") ") is returned") (dt "Read Mark Invocation") (dd "If a " (i "read mark") " with the same name as the token is registered, then its procedure is called and the result of the read-mark procedure will be returned")))
(def (sig (read "#cs" (id "#cs"))) (pre "#cs...") (p "Read the next expression in case-sensitive mode (regardless of the current global setting)."))
(def (sig (read "#ci" (id "#ci"))) (pre "#ci...") (p "Read the next expression in case-insensitive mode (regardless of the current global setting)."))
(def (sig (read "#+" (id "#+"))) (pre "#+FEATURE EXPR") (p "Rewrites to") (pre "(cond-expand (FEATURE EXPR) (else))") (p "and performs the feature test at macroexpansion time.  Therefore, it may not work as expected when used within a macro form."))
