Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 40 lines (38 sloc) 1.929 kb
36f71ce @angavrilov Fully reindent all code in Emacs.
authored
1 ;;; -*- mode:lisp; indent-tabs-mode: nil; -*-
673359e @angavrilov Wrap the symbols in a package.
authored
2
3 (defpackage fast-compute
36f71ce @angavrilov Fully reindent all code in Emacs.
authored
4 (:documentation "Fast array computation library")
5 (:use "COMMON-LISP" "CL-MATCH" "ALEXANDRIA"
6 "FSET" "GMAP" "NEW-LET" "LEXICAL-CONTEXTS")
7 (:export "MULTIVALUE" "MULTIVALUE-DATA" "MULTIVALUE-SYNC"
8 "DEF-MULTIVALUE" "COPY-MULTIVALUE" "DEF-MULTIVALUE-MACRO"
9 "ALLOC-MULTIVALUES" "WITH-LOCAL-MULTIVALUES"
1118ba0 @angavrilov Rename loop-indexes to do-indexes.
authored
10 "IREF" "ENABLE-EXPR-QUOTES" "DO-INDEXES"
36f71ce @angavrilov Fully reindent all code in Emacs.
authored
11 "*CURRENT-COMPUTE*" "COMPUTE"
8413373 @angavrilov Allow simplifying sign-dependent conditions.
authored
12 "LETV" "CALC" "_GRP" "IFSIGN"
36f71ce @angavrilov Fully reindent all code in Emacs.
authored
13 "SET-COMPUTE-THREAD-COUNT" "PARALLEL-LOOP"
14 "*COMPUTE-WITH-CUDA*"
15 "DUMP-ARRAY" "RESTORE-ARRAY"
16 "ALLOW-DENORMALIZED-FLOATS"
8413373 @angavrilov Allow simplifying sign-dependent conditions.
authored
17 "COMPUTE-BATCH" "DEF-HINT"
7f1358f @angavrilov Add time iteration and checkpoint control code.
authored
18 ;; Re-export from lexical-contexts
19 "DEFLEX")
36f71ce @angavrilov Fully reindent all code in Emacs.
authored
20 (:import-from "STANDARD-CL"
21 "USE-STD-READTABLE" "DO-HASHTABLE"
22 "SPLIT-LIST" "SUM" "WHILE" "UNTIL")
23 (:shadowing-import-from "COMMON-LISP" "LET" "COND" "LAST")
24 (:shadowing-import-from "FSET"
25 ;; Shadowed type/constructor names
26 "SET" "MAP"
27 ;; Alexandria conflicts
28 "REMOVEF" "UNIONF" "COMPOSE"
29 ;; Shadowed set operations
30 "UNION" "INTERSECTION" "SET-DIFFERENCE" "COMPLEMENT"
31 ;; Shadowed sequence operations
32 "FIRST" "SUBSEQ" "REVERSE" "SORT" "STABLE-SORT"
33 "REDUCE"
34 "FIND" "FIND-IF" "FIND-IF-NOT"
35 "COUNT" "COUNT-IF" "COUNT-IF-NOT"
36 "POSITION" "POSITION-IF" "POSITION-IF-NOT"
37 "REMOVE" "REMOVE-IF" "REMOVE-IF-NOT"
38 "SUBSTITUTE" "SUBSTITUTE-IF" "SUBSTITUTE-IF-NOT"
39 "SOME" "EVERY" "NOTANY" "NOTEVERY"))
Something went wrong with that request. Please try again.