diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
| -rw-r--r-- | src/interp/vmlisp.lisp | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index e571a161..47ccdec1 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -676,16 +676,6 @@ (SETQ Y (CDR Y)) (GO A))))) -; 14.6 Miscellaneous - -(defun QSORT (l) - (declare (special sortgreaterp)) - (|reverse!| (sort (copy-seq l) SORTGREATERP))) - -(defun SORTBY (keyfn l) - (declare (special sortgreaterp)) - (|reverse!| (sort (copy-seq l) SORTGREATERP :key keyfn))) - ; 16.0 Operations on Vectors ; 16.1 Creation |