;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File		     - cleaner.lisp
;; Description	     - delete symbols they must define
;; Author	     - Tim Bradshaw (tfb at lostwithiel)
;; Created On	     - Thu Feb 10 00:10:46 2000
;; Last Modified On  - Mon Jun 25 12:55:26 2001
;; Last Modified By  - Gail Anderson (ga at lostwithiel)
;; Update Count	     - 5
;; Status	     - Unknown
;; 
;; $Id: cleaner.lisp,v 1.1 2003/01/23 22:19:15 colin Exp $
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Copyright (C) 2000, 2001 Cley Limited
;;; 
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2 of the License, or (at
;;; your option) any later version.
;;; 
;;; This program is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;; General Public License for more details.
;;; 
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
;;; USA.
;;; 
;;; You can contact Cley Limited by emailing cley@cley.com.



(in-package :upt)

(defvar *student-symbols*
    '(merge-urlpath
      indexify-urlpath
      prune-urlpath
      prune-directory
      eliminate-backs
      canonicalize-link
      ;page-description->page-attributes
      store-all-page-descriptions
      urlpath-value-in-upt
      map-upt-nodes
      urlpath-dangling-links
      upt-dangling-links
      upt-dangling-path-names))

(defun clean-student-symbols ()
  "Make all the names you are meant to define have no definitions.
You can run this function after loading the compiled one, but before 
loading your version to make sure you have not missed anything.
Returns a list of the symbols it has undefined."
  (dolist (s *student-symbols* *student-symbols*)
    (makunbound s)
    (fmakunbound s)))