Add .cl as a Common Lisp file extension.
This commit is contained in:
Родитель
2bac3af299
Коммит
c6c5e79ccf
|
@ -281,6 +281,7 @@ Common Lisp:
|
|||
primary_extension: .lisp
|
||||
extensions:
|
||||
- .asd
|
||||
- .cl
|
||||
- .lsp
|
||||
- .ny
|
||||
- .podsl
|
||||
|
|
|
@ -0,0 +1,21 @@
|
|||
;;;; -*- lisp -*-
|
||||
|
||||
(in-package :foo)
|
||||
|
||||
;;; Header comment.
|
||||
(defvar *foo*)
|
||||
|
||||
(eval-when (:execute :compile-toplevel :load-toplevel)
|
||||
(defun add (x &optional y &key z)
|
||||
(declare (ignore z))
|
||||
;; Inline comment.
|
||||
(+ x (or y 1))))
|
||||
|
||||
#|
|
||||
Multi-line comment.
|
||||
|#
|
||||
|
||||
(defmacro foo (x &body b)
|
||||
(if x
|
||||
`(1+ ,x) ;After-line comment.
|
||||
42))
|
|
@ -0,0 +1,23 @@
|
|||
/* Old-style comment. */
|
||||
|
||||
// New-style comment.
|
||||
|
||||
typedef float foo_t;
|
||||
|
||||
#ifndef ZERO
|
||||
#define ZERO (0.0)
|
||||
#endif
|
||||
|
||||
#define FOO(x) ((x) + \
|
||||
ZERO)
|
||||
|
||||
__kernel
|
||||
void foo(__global const foo_t * x, __local foo_t y, const uint n)
|
||||
{
|
||||
barrier(CLK_LOCAL_MEM_FENCE);
|
||||
|
||||
if (n > 42) {
|
||||
*x += y;
|
||||
}
|
||||
}
|
||||
|
Загрузка…
Ссылка в новой задаче