Anonymous avatar Anonymous committed b3b5c6b

Added initial meta page for administering posts; unpublished now disappear from blog, only appearing on meta page

Comments (0)

Files changed (1)


 (defmethod tag-library-expiredp ( (library tag-library) )
   (when (tag-library-stalep library)
-    (or (provider-tag-library-expiredp library (tag-library-provider library) )
+    (or (not (slot-boundp library 'provider)) ;; in case a library fails during creation with no provider found
+	(provider-tag-library-expiredp library (tag-library-provider library) )
 	(find-if #'(lambda (library-name) 
 		     (let (
 			   (library (find-cached-tag-library library-name))
 	    (library (read-tag-library (open full-path :direction :input) )
+	;; TODO note: if there is a failure during read, then neither of the following 2
+	;; statements will execute
 	(setf (tag-library-provider library) provider)
 	(setf (modified-time-of library) 
 	      (tag-library-file-modified-time library-name provider)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.