share/contrib/unicodedata/grind-patch.lisp

   1 ;; -*- mode: lisp -*-
   2 ;; Copyright Leo Butler (leo.butler@ndsu.edu) 2015
   3 ;; Released under the terms of GPLv3+
   4 (in-package :maxima)
   5
   6 (defun slash (x)
   7   (do ((l (cdr x) (cdr l))) ((null l))
   8     ;; Following test is the same (except backslash is not included,
   9     ;; so backslash is preceded by backslash) as in SCAN-TOKEN (src/nparse.lisp).
  10     ;; Any wide-char should not be escaped
  11     (if (or (ascii-numberp (car l)) (alphabetp (car l)) (> (char-code (car l)) 128.))
  12         nil
  13         (progn (rplacd l (cons (car l) (cdr l)))
  14                (rplaca l #\\) (setq l (cdr l)))))
  15   (if (or (alphabetp (car x)) (> (char-code (car x)) 128.)) x (cons #\\ x)))
  16
  17
  18 ; end of grind-patch.lisp