anchor.diff:    (defmacro with-standard-compadmin-page (title &body body)
       `(with-standard-page-template  ,title  with-compadmin-navigation-bar  ,@body)))
   
  +(eval-when (:compile-toplevel :load-toplevel :execute)
  +  (defmacro with-no-navbar-page (title &body body)
  +    `(with-standard-page-template ,title (lambda () ()) ,@body)))
   
   
   (defun print-thread-info ()
  
positive.code: ;; -*- mode: common-lisp; coding: utf-8 -*-
  (in-package :hhub)
  (clsql:file-enable-sql-reader-syntax)
  
  
  (defun hhub-business-adapter (function params)
  
negative.code: 	     (:label :for ,name ,label)
  	     (:input :class "form-control"  :type "text" :id ,name :name ,name :placeholder ,placeholder :required ,brequired :value ,value :tabindex ,tabindex :data-error  ,validation-error-msg ,@other-attributes)
  	     (:div :class "help-block with-errors")))))
  
  
  (eval-when (:compile-toplevel :load-toplevel :execute)     
    (defmacro with-html-input-hidden (name value &body other-attributes)
      `(cl-who:with-html-output (*standard-output* nil)
         (:div :class "form-group"
  	     (:input :class "form-control"  :type "hidden" :id ,name :name ,name :value ,value ,@other-attributes)))))
  	    
  
  (eval-when (:compile-toplevel :load-toplevel :execute)     
    (defmacro with-html-input-password (name label placeholder  value brequired validation-error-msg tabindex &body other-attributes)
      `(cl-who:with-html-output (*standard-output* nil)
         (:div :class "form-group"
  	     (:label :for ,name ,label)
  	     (:input :class "form-control"  :type "password" :id ,name :name ,name :placeholder ,placeholder :required ,brequired :value ,value :tabindex ,tabindex :data-error  ,validation-error-msg ,@other-attributes)
  	     (:div :class "help-block with-errors")))))
  
  
  
  (eval-when (:compile-toplevel :load-toplevel :execute)     
    (defmacro with-html-input-textarea (name label placeholder brequired validation-error-msg tabindex rows &body other-attributes)
  