This file is indexed.

/usr/bin/clc-unregister-user-package is in common-lisp-controller 7.8.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!/bin/sh
# Unregisters a user package
# Author: Kevin Rosenberg <kmr@debian.org >  GPL-2 license

set -e

LANG=C
LC_ALL=C
export HOME LANG LC_ALL

progname=$(basename $0)

if [ ! -d "$HOME" ]; then
  echo "User home directory $HOME does not exist as a directory" >&2
  exit 3
fi

clc_user_dir=$HOME/.clc
clc_user_systems=$clc_user_dir/systems

if [ ! -d "$clc_user_dir" ]; then
  echo "User CLC directory $clc_user_dir does not exist."
  echo "Maybe you never registered any user packages."
  exit 3
fi

clc_user_db=$HOME/.clc/user-packages.db

if [ ! -f "$clc_user_db" ]; then
  "No user packages are currently registered."
  exit 0
fi

if [ -z "$1" ] ; then
 cat <<EOF
usage: $progname package-asdf-file
Registers a Common Lisp package to the Common Lisp Controller system.
EOF
    exit 1
fi

asdf_file=$(realpath -s "$1" 2>/dev/null || true)
asdf_file_base=`basename $asdf_file`

if [ -f "$asdf_file" ]; then
    found=$(grep "^${asdf_file}\$" $clc_user_db || true)
    if [ "$found" ]; then
	grep -v "^${asdf_file}\$" $clc_user_db > ${clc_user_db}.new || true
	mv ${clc_user_db}.new $clc_user_db
	rm -f $clc_user_systems/$asdf_file_base
	echo "User package $asdf_file unregistered."
    else
	echo "User package $asdf_file was not registered."
    fi
else
    echo "User package file $1 not found on file system."
fi