File: unregister-common-lisp-implementation

package info (click to toggle)
common-lisp-controller 4.15sarge3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 188 kB
  • ctags: 31
  • sloc: lisp: 361; sh: 215; makefile: 57
file content (16 lines) | stat: -rw-r--r-- 506 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/bin/sh

# Copyright (C) 2000,2004  Peter Van Eynde and Kevin M. Rosenberg
# Licensed under the LLGPL, see debian/copyright file

# just nuke all caches of this implementation

implementation="$1"

echo "$implementation" | grep -q '[^a-zA-Z0-9-]' && echo "Found special characters in $1!" && exit 42 
echo "$implementation" | grep -q '\.\.' && echo "Found .. in $1!" && exit 1

echo "$implementation" | grep -q '\/\/' && echo "Found // in $1!" && exit 2

rm -rf /var/cache/common-lisp-controller/*/"$1"